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IDENTIFICATION 


PRODUCT CODE: AC-E457B-MC 


PRODUCT NAME: CZTSIBO TS11 CTRL LGC 


MAINTAINER: DIAGNOSTIC ENGINEERING 


AUTHOR: 


ROBERT F. WERY 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE W1THOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DECTAPE 


A A 


SEQ 0001 


1.0 


2.0 


3.0 


USER DOCUMENTATION 


USER DOCUMENTATION TABLE OF CONTENTS 


GLOSSARY 


GENERAL INFORMATION 
i PROGRAM ABSTRACT 
1.1.1 FUNCTIONAL DESCRIPTION 
1.1.2 STRUCTURE OF PROGRAM 
1.1.5 MEMORY MAP 
1.1.4 DIAGNOSTIC INFORMATION 
1.2 SYSTEM REQUIREMENTS 


1.2.1 HARDWARE REQUIREMENTS 
1.2.2 SOFTWARE REQUIREMENTS 


RELATED DOCUMENTS AND STANDARDS 
DIAGNOSTIC HIERARCHY PREREQUISITES 
ASSUMPTIONS 

DIAGNOSTIC HISTORY 


—* 
oO oo 7 o 
Oo Ww , \~™ 


OPERATING INSTRUCTIONS 


Oo HARDWARE PARAMETERS 
Bud SOFTWARE PARAMETERS 
2.4 EXECUTION TIMES 


2.4.1 SYSTEM CONFIGURATION 
2.4.2 TEST EXECUTION TIMES 


ERROR INFORMATION 


3.1 ERROR REPORTING 
3.2 ERROR HALTS 


DEVICE INFORMATION TABLES 


4.1 DIAG REGISTERS 

4.2 GENERAL 

4.3 UNIBUS INTERFACE SPECIFICATIONS 

6.6 BIT DEFINITIONS FOR TS11/T $04 REGISTERS 


SEQ 0002 


5.0 


TEST SUMMARIES 
TEST 1 = PDP=11/TS11 WRAP TEST 


5.1 
5.2 
5.5 
5.4 


5.5 


TEST 2 = PDP=11/TS04 WRAP TEST 


TEST 5 = SET TSO04 CHARACTERISTIC 


FORMATTER BOARD DATA WRAP TESTS (TESTS 4-7). 
TRACK ACTIVE/TRACK INACTIVE TESTS (TEST 4) 
SUBTEST 1 = TRACK INACTIVE TEST 


5.4.1 


5.4.2 


5.4.5 


5.4.4 


- TRACK ACTIVE TEST 


2 
SUBTEST : - TRACK INACTIVE TEST 


5.4.1.1 

5.4.1.2 SUBTEST 
FA. 

5.4.1.4 SUBTEST 

P.E. DATA TESTS (TEST 
5.4.2.1 SUBTEST 1 - P 
5.4.2.2 SUBTEST 2 - P. 
5.4.2.5 SUBTEST 35 - P 
5.4.2.4 SUBTEST 4 - P 
PE SKEW TEST (TEST 6) 
5.4.5.1 SUBTEST 1 - P. 
5.4.5.2 SUBTEST 2 - P. 


DEAD TRACK LOGIC TEST 


5.4.4.1 


SUBTEST 1 - P. 


* e ° 
mnnrn 


5) 


. DATA TEST/O PATTERN 
- DATA TEST/1 PATTERN 
- DATA TEST/SHIFTING 1 PATTERN 
. DATA TEST/SHIFTING 0 PATTERN 


c. 
E. 


- TRACK ACTIVE TEST 


SKEW TEST 
SKEW TEST 


(TEST 7) 


Ee 
5.4.4.2 SUBTEST 2 - P.E. 


TEST 8 = ROM LCOKUP TABLE TEST. 
TEST 9 = INLINE MICRO DIAG TEST 


TEST 10 = INIT MICRO DIAG TEST 


DEAD TRACK TEST 
DEAD TRACK TES? 


SEQ 0005 


GLOSSARY 


ACT 
APT 


BYTE/RECORD/FILE COUNT 
BRE 


CMD 
COMMAND PACKET 
CMDPKT 


EXTENDED STATUS 
MESSAGE PACKET 


PC 
PSWwW 


RESIDUAL FRAME COUNT 
RFC 


Fiona CLASS CODE 
C 


TSBA 
TSDB 
TSSR 
xST0 
XST1 
xST2 
xS1T3 
XXDP* 


AUTOMATED COMPUTER TEST 


AUTOMATED PRODUCT TEST SYSTEM USED IN 
MANUFACTURING. 


1S STORED IN THE 4TH WORD OF THE COMMAND 
PACKET AND IT*S USE BY THE 1S04 DEPENDS 
ON THE TYPE OF COMMAND. 

TSO04 COMMAND 

FOUR WORD PACKET iN THE CPU MEMORY WHICH 
CONTAINS ALL INFORMATION NEEDED BY THE 
TSO04 TO EXECUTE A COMMAND. 

FOUR WORDS OF TS04 STATUS WHICH ARE 
TRANSFERRED AS PART OF THE MESSAGE PACKET AT 
THE COMPLETION OF A COMMAND. 

SEVEN WORD PACKET IN THE CPU MEMORY INTO 
WHICH THE TSO4 STORES STATUS AT THE 
COMPLETION OF A COMMAND. 

PROGRAM COUNTER 

PROCESSOR STATUS WORD 

THIS COUNT IS PART OF THE MESSAGE PACKET 
AND CONTAINS THE NUMBER OF BYTES/RECORDS 
/FILES REMAINING TO BE PROCESSED AT THE 
COMPLETION OF A COMMAND. 


THREE BIT CODE IN THE TSSR WHICH INDI- 
CATES THE TYPE OF COMMAND TERMINATION. 


TAPE SYSTEM BUS ADDRESS REGISTER. 
TAPE SYSTEM DATA BUFFER REGISTER. 
TAPE SYSTEM STATUS REGISTER. 
EXTENDED STATUS REGISTER 0 
EXTENDED STATUS REGISTER 1 
EXTENDED STATUS REGISTER 2 
EXTENDED STATUS REGISTER 3 


XXDP* JS A “"CATCH@ALL’'NAME FOR A GROUP OF PDP}-11 
DIAGNOSTIC PACKAGES AVAILABLE ON MULTIMEDIA. 


coccenee SEQ 0004 


— om oe ee 





1.0 GENERAL INFORMATION 


THIS PROGRAM PERFORMS CORRECTIVE MAINTENANCE BY EXECUTING TS11 
AND bm WRAPAROUNDS FOR THE PURPOSE OF IDENTIFYING FAILED 
MODULES. 


1.1.2 STRUCTURE OF PROGRAM 


THIS DIAG 1S A SINGLE PROGRAM FROM THE STANDPOINT OF THE USER, BuT 


11 CONTAINS A CONTROL MODULE RELEASED INDEPENDENTLY AS A DIAG SUPERVISOR. 





SEQ 0005 


; egestas item nactncinatiseaniaainadintinicnintenieact 
1.1.5 MEMORY MAP ’ 


NSE SEQ 0006 
0 ! 
; VECTOR 
' AREA , 
! 1 
400 !-------------- | 
, STACK 
2000 !-------------- | 
‘ i 
' DJAGNOSTIC ! 
4 1 
! 
41000 !eennn--------- 
! 
' DIAGNOSTIC ! 
' SUPERVISOR | 
! ! 
72000 !-------------- 
XXDP+ 
77777 hepeaniebuaniea 


FREE MEMO SPACE RESIDES BETWEEN THE DIAG AND THE SUPERVISOR. 


1.1.4 DIAGNOSTIC INFORMATION 


THIS DIAGNOSTIC TESTS ONE UNIT AT A TIME, BUT WILL SEQUENTIALLY 

TEST UP TO 4 UNITS. THE 4 UNITS ARE ASSIGNED LOGICAL UNIT 

NUMBERS 0 - 3 BY THE DIAGNOSTIC. THE UNITS DO NOT HAVE 10 BE 

ON LINE AND A TAPE DOES NOT HAVE TO BE LOADED TO RUN THIS DIAGNOSTIC. 2 


RE COMMANDAT ION: 


17 1S RECOMMANDED TO RUN THIS DIAG WITH NO TAPE LOADED BECAUSE OF 
MUCH FASTER EXECUTION TIME (SEE 2.4). 


ene ee ee 


ee Gees enews - ee eee 


1.2 SYSTEM REQUIREMENTS 
won nnn------------- 3 SEQ 0007 


PDP=-11 PROCESSOR WITH 16K OR MORE OF MEMORY 
CONSOLE DEVICE (LA350,LA56,V150,ETC.) 
PROGRAM LOAD DEVICE 


1.2.2 SOFTWARE REQUIREMENTS 


DIAGNOSTIC SUPERVISOR 


1.5 RELATED DOCUMENTS AND STANDARDS 


XXDP+ USERS MANUAL MD- ‘-CHQUS 

DIAGNOSTIC SUPERVISOR PROGRAM  _ISTING 

PDP-11 DIAGNOSTIC SUPERVISOR INTERFACE SPECIFICATION. 
PDP=-11 DIAGNOSTIC SUPERVISOR PROGRAMMER'S GUIDE 
TS$11/TSO4 PROGRAMMING SPECIFICATION. 

TS04/TS11 ENGINEERING SPECIFICATION. 

1S11/TSO4 COMMAND PACKET SPECIFICATION. 


1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 


THIS PROGRAM SHOULD BE RUN BEFORE ANY OTHER HOST CPU DIAGNOSTIC 
RROGRAM. 


1.5 ASSUMPTIONS 


THE HARDWARE OTHER THAN THE SUBSYSTEM BEING TESTED 1S ASSUMED TO WORK 
PROPERLY. FALSE ERRORS MAY BF REPORTED IF THE PROCESSOR, MEMORY, EIC., 
DO NOT FUNCTION PROPERLY. 


1.6 DIAGNOSTIC HISTORY 


REV A = FEB 79 
- ORIGINAL RELEASE 
REV B = AUG 79 
-ADDED AN INTERRUPT TEST 
“REVISED ALL TESTS BECAUSE OF AN HARDWARE ECO: 
WATCH FOR TAPE MOTION DURING A LOAD SEQUENCE RESULTING 
FROM AN INIT SENT TO THE TS11. 
“CONVERTED DIAG TO SUPERVISOR REV: C. 
ADDED SEVERAL SECTIONS: PROTECT TABLE, AUTO-DROP CODE, 
HARD CODED PARAMETE® TABLE... 


2.0 OPERATING INSTRUCTIONS 
won ceennnnnnneeeenn=-- SEQ 0008 


ON A START COMMAND, THE DIAG ASKS: “CHANGE HW?"’. 
ON A “'N’’ ANSWER, THERE SHALL BE NO HARDWARE DIALCGUE AND THE 
DIAG SHALL RUN ASSUMING A UNIT AT TSSR = 177522 WITH VECTOR OF 


ON A ‘‘y'’ ANSWER TO ‘‘CHANGE HW?°° QUESTION, THEN AND ONLY THEN, 
THE FOLLOWING QUESTIONS WILL BE ASKED ON A START COMMAND. THE 
VALUE LOCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT 
VALUE THAT WILL BE TAKEN ON A CARRIAGE RETURN RESPONCE. 


TSSR ADDRESS (172522) ? 
VECTOR (224) ? 


THE VALIDITY OF THESE PARAMETERS CAN BE CHECKED BEFORE RUNNING 

THE TESTS BY SETTING THE FLAG ‘‘ADR'’ ON A STA, RES, OR CON COMMAMD. 
THE SO CALLED AUTO-DROP. CODE SHALL THEN BE EXECUTED AFTER THE INIT 
CODE AND BEFORE THE HARDWARE TESTS ARE RUN. 

THAT CODE FIRST TESTS THE ADDRESS OF THE TSSR. IF NO RESPONCE FROM 
ielete THE UNIT IS DROPPED IMMEDIATELY WITH THE FOLLOWING 

M GE: 


BUS TRAP AT XKXXXXX 
INTERFACE BAD OR NOT SETTO ABOVE AD 


(XXXXKXK = TSSR AD) 
ON A RESPONSE FROM THE INTERFACE, THE READY STATUS OF THE 
UNIT IS CHECKED. IF NOT READY, THE UNIT 1S DROPPED IMMEDIATELY. 


2.2 SOFTWARE PARAMETERS 


THE FOLLOWING QUESTION WILL BE ASKED ON REQUEST - 1.£., ANSWERING 
“"v'’ TO “"CHANGE SW (L)?'' QUESTION - ON A START, RESTART OR CONTINUE COMMAND : 


ENABLE DATA COMPARE ERROR PRINTS FOR TESTS 4-7(L) N ? 


If ‘‘y'’ JS THE RESPONSE TO THIS SOFTWARE QUESTION, THEN WILL DATA 
COMPARE ERRORS BE PRINTED, PROVIDED IER FLAG IS RESET. 


1. 


2.4 EXECUTION TIMES 


PDP11/70 
oat MEMORY 


LA56 
T$11/TS04 
2.4.2 TESTS EXECUTION TIMES 


TAPE NOT LOADED: 40 SEC 
TAPE LOADED, UNIT OFF-LINE: 90 SEC 
TAPE LOADED, UNIT ON-LINE: 145 SEC 


—— ene ee 


SEQ 0009 


3.0 ERROR INFORMATION 


eee, en 8 


OOONOA VL WH — OVOOnNO UVF wn — 


hho ho ho hy ee, 


Nm 
OWE wr 


Mm 
™N 


COMMAND PACKET ADR NOT ON MODULO 4 BOUNDARY 
TSO04 NOT READY-SSR NOT SET 
PDP11-TS11 WRAP FAILURE 
PDP11-1S11 WRAP FAILURE ON TSSR EXT ADDR BITS 
PDP11-1S04 WRAP FAILURE-TSBA INCORRECT 
PDP11-TS04 WRAP FAILURE-TSSR INCORRECT 
TRACK ACTIVE NOT 0 FOR 1 OR MORE TRACKS IN TEST4 SUBI 
TRACK ACTIVE NOT 0 FOR 1 OR MORE TRACKS IN TESTS SUBS 
TRACK ACTIVE NOT 1 FOR 1 OR MORE TRACKS IN TEST4 SUB2 
TRACK ACTIVE NOT 1 FOR 1 OR MORE TRACKS 'N TESTS SUBS 
TRACK ACTIVE ERROR 
PE WRAP DATA ON O'S PATTERN 
PE WRAP DATA ERROR ON 1°S PATTERN 
PE WRAP DATA ERROR ON SHIFTING 1 PATTERN 
PE WRAP DATA ERROR ON SHIFTING 0 PATTERN 
PE SKEW ERROR 
E DEAD TRACK ERROR 
ROM LOOKUP TABLE ERROR 
MICRO DIAGNOSTIC ERROR 
ET CHAR ERROR-TSSR. NBA NOT SET ON CCMMANDS BEFORE 
SET CHAR ISSUED. 
SET CHAR ERROR-TSSR. NBA NOT CLEARED WHEN SET CHAR ISSUED 
SET CHAR ERROR-TSBA NOT POINTING PAST MSG PACKET 
SET CHAR ERROR-MSG PACKET CONTENTS IN DOUBT 
SET CHAR ERROR-1/0 SEQ CROM PARITY ERR (FC=1) 
SET CHAR ERROR-SERIAL BUS PARITY ERR (FC=2) 
SET CHAR ERROR-SILO PARITY ERR (FC=2) 
SET CHAR ERROR-UP CROM PARITY ERROR OR FATAL MICRO 
ERROR HALTS (FC=2) 
SET CHAR ERROR-AC DETECTED LOW AT TSO4 (FC=3) 
TS11 DID NOT DROP READY UPON COMMAND ISSUANCE 
PE DATA ERROR 


NO INTERRUPT | 


* = DEVICE FA: AL ERRORS - CALL BAD TS11 BOARD OR 10 BOARDS 
OTHER ERRORS ARE HARD ERRORS 
NOTE: EXPECTED AND ACTUAL DATA AND/OR PRINTOUTS WILL OCCUR 


3.2 ERROR HALTS 


WITH SOME OF THE ABOVE MESSAGES WHEN APPLICABLE. 


ERROR HALTS ARE SUPPORTED PER DESCRIBED IN THE PREVIOUS SECTION 
WITH /FLAG:HOE. THERE ARE NO OTHER HALTS. 


SEQ 0010 


4.0 DEVICE 


INFORMATION TABLES 


4.1 DIAG’ REGISTERS 


>THE FOLLOWING ARE REGISTER AND BIT DEFINITIONS FOR THE TS04 


>REGISTERS 


OF INTEREST IN THIS DIAGNCSTIC. 


,eeertererererererakeeeeaeeeeeeeeeeeneeeneeeeeeneeeeeneeeererse 


;FMCTLO cart mek MAJOR STATE CONTROL REG 


FMACTLO=4 
;WRITE REGISTER 4 


;THIS REGISTER 1S SET UP FOR THE PORTION OF THE 
;RECORD WE ARE PRESENTLY READING 


FC.RD= 200 ;WE ARE DOING NORMAL READ. IF 0, WE DISABLE SOME ERROR 
;CORRECTION LOGIC SO WE'RE MORE DISCRIMINATING 
;FOR READ AFTER WRITE. 

FC.FLO=100 ;SETING THIS BIT CAUSES .FMFLO ON BBUS TO BE TRUE 
; (NEEDED BY THE RD PE ROUTINE) 

FC.DAT=10 ;DATA MODE 

FC .PRE=4 ;PREAMBLE MODE 

FC.vCO=2 ;VCO SYNC MODE 

FC.NRZ=1 ;NRZ] MODE (FORCE SKEW WINDOW TO STAY OPEN) 


;CAUSES FMTAU] TO BE CLRED WHEN YOU WRITE 
;TO THE FMCLDO REGISTER. 


,seeeerererereerereneeeeeeaeeeeeeeeeeeeneeeeeecKeeeeeeee eee eS 


;RDCTLO - READ CONTROL REGISTER 
RDCT 0 


;WRITE REGISTER 20 
;THIS REGISTER CONTROLS THE FORMATTER MODE AND THRESHOLD. 
RD.REV=200 ;1 FOR REV MOTION, O=FWD 
RD .MAI=100 ;1/0 FORMATTER DATA WRAPAROUND 
RD.SPC=40 ;WE ARE SPACING RECORDS. (THIS BIT 1S UNUSED IN 
;THE HARDWARE BUT IS A SOFTWARE FLAG IN THE READ CODE) 
RD. SKP=20 ;WE ARE SKIPPING FILES. (THIS BIT IS UNUSED IN 
;THE HARDWARE BUT IS A SOFTWARE FLAG IN THE READ CODE) 
;THE FOLLOWING THRESHOLDS ARE AVAILABLE: 
:NORM USE DIAG USE 
RD.110=7 ; H] PREAMP GAIN 
RD.90=6 ; LO PREAMP, BAD TAPE CLEAN 
RD.75=5 ; RESIDUAL ERASE CHK 
RD.68=4 ; FWD/REV AMP BALANCE 
RD.40=3 ;NRZ WRT 
RD.20=2 ;NRZ RD, PE WwW 
RD.12=1 ;PE READ, NRI TERR RECOV RD/WRT CROSSTALK 
RD.07=0 ;PE ERR RECOV ERASE FUNCTION 


:DATA PORTION ONLY 


SEQ 0011 


,;eereerererererererereeeeerereeeeereeeeeeeeeeeeeeeeeeeeterete 


;10SCO - 1/0 SEQUENCER SILO CONTROL BUFFER OUT SEQ 0012 
10SCO=14 | 
;WRITE REGISTER 14 


;THIS REGISTER CONTAINS THE SILO CONTROL BITS FOR DATA WRITTEN 

;BY THE MAIN OR 1/0 MICRO TO THE SILO. THE DATA IN THIS REG 

;1S PAIRED WITH THE 1O0SDO REG AND PUT IN THE SILO WHENEVER 

;THE 1OSICO REG IS CLOCKED. THIS REGISTER NEED ONLY BE WRITTEN 

;ONCE IF THE SAME OLD DATA IS OK TO BE WRITTEN IN THE SILO. 
;NOTE THAT IF THE 1/0 IS WRITING THE SILO, THE MAIN MUST PUT EVEN 
;PARITY IN THE BITS 357 OR THE 1/0 WILL WRITE PAR ERRS IN THE SILO. 
;(THE I1S.DAP BIT IS DON'T CARE HERE FOR 1/0 WRITING THE SILO) 


I1S.PAR= 200 ;ODD PAR BIT FOR ALL 16 BITS (CNRTL AND DATA) 
;NOTE THAT THE BITS MASKED BY 357 MUST BE 
;EVEN PARITY BECAUSE THE 9 DATA BITS ARE ODD 


IS.1vP= 100 ; INVERT CNTRL SILO PAR BIT BEFORE MOVING 
;T0 WRITE BOARD (WRITE EVEN PARITY ON TAPE) 
IS.NRZ= 40 ; INVERT WRITE BUFFER BIT IF ASSOCIATED SILO 
:DATA BIT IS A 1. CIF IS.NRZ=0, WE'RE IN PE MODE) 
IS.DAP= 20 ;ODD PARITY FOR THE 8 DATA BITS IN 10SDO 
IS.LRC= 10 ;CAUSES SYNCRONOUS CLR ON WRT BOARD TO WRITE THE LRC CHAR 
IS.WRF= 4 ;THIS FLG BIT SHOWS UP AT THE WRITE BOARD 


;WITH THE CORRESPONDING DATA. THE FUNCTION OF 

;THE BIT WILL BE DEFINED BY THE WRITE BOARD. 

;NOTE HOWEVER THAT IF THE WRITE BOARD SEES 

;THE BIT 1, THE PA.WRF BIT IN THE 

;PRATNI REG WILL ALSO BE 1 (IF ENABLED 

;TO0 AFFECT THE ATTN REG). 
;THE 2 LOW BITS ARE WRITABLE AND AFFECT THE PARITY TREES BUT 
;OTHERWISE ARE UNIMPLEMENTED 


,seeeeererereraeeteeeeeee eee eee eee eee eee 


4.2 GENERAL 


THE TS04 TAPE SUBSYSTEM CONSISTS OF A 1S11 UNIBUS TO SERIAL BUS 
CONTROLLER CONNECTED TO A 1804 DRIVE. FROM A SOFTWARE VIEWPOINT 
THIS CONFIGURATION IS UNIQUE (FOR A UNIBUS DEVICE) IN A NUMBER 
OF WAYS: 


A. ONLY ONE REGISTER MAY BE WRITTEN - TSDB (TAPE SYSTEM 
DATA BUFFER), 


B. TWO REGISTERS MAY BE READ - TSSR AND TSBA (TAPE SYSTEM STATUS 
REGISTER AND TAPE SYSTEM BUS ADDRESS REGISTER), 


C. COMMANDS ARE NOT WRITTEN TO THE DRIVE; RATHER, COMMAND 
POINTERS ARE WRITTEN WHICH POINT TO COMMAND PACKETS SOME- 
WHERE IN CPU MEMORY. THE COMMAND POINTER IS USED BY 
THE TS04 SUBSYSTEM TO FETCH THE WORD(S) WITHIN THE COMMAND 
PACKET. THE WORDS WITHIN THE COMMAND PACKET ARE: 





Dd. 


. COMMAND WORD 

LOW ORDER BUFFER ADDRESS 
HIGH ORDER BUFFER ADDRESS 
BYTE COUNT 


THE TSSR CONTAINS ALL THE INFORMATION WHICH WILL BE NEC- 
ESSARY TO DETERMINE WHETHER: 

1. THE DRIVE 1S READY TO ACCEPT ANOTHER COMMAND, 

2. THE PREVIOUS COMMAND WAS EXECUTED WITHOUT ERROR. 
IF ELTHER OF THE ABOVE CONDITIONS IS UNTRUE AT ‘JOB DONE” 
OR “COMMAND INITIATION’ TIME,IT MAY BE NECESSARY 
TO GET THE EXTENDED STATUS REGISTERS TO DETERMINE WHAT 
ACTION 1S TO BE TAKEN AND/OR LOG THE ERROR INFORMATION. 


wh — 
> & e 


. EXTENDED STATUS REGISTERS ARE NOT READ DIRECTLY ¢ROM 


DRIVE REGISTERS; RATHER, A ‘'GET STATUS’ COMMAND 

1S ISSUED WHICH WILL CAUSE THE TS04 TO TRANSFER EXTENDED 
STATUS INFORMATION TO THE MEMORY AREA POINTED TO BY THE 
BUFFER ADDRESS OF THE ‘’GET STATUS'’ COMMAND. THERE ARE FOUR 
EXTENDED STATUS REGISTERS. SEE 6.5. 


THE TSDB MUST BE WRITTEN WITH A DATO INSTRUCTION TO 
PROPERLY WRITE THE COMMAND POINTER. A DATOB WILL 

CAUSE A MAINTENANCE FUNCTION. A DATO TO THE TSSR WILL CAUSE 
SUBSYSTEM INIT. 


COMMAND PACKETS MUST RESIDE ON DIVIDE BY FOUR 
MEMORY BOUNDARIES (AS OPPOSED T0 DIVIDE BY 2 OR WORD 
BOUNDARIES) . 





SEQ 0015 





4.5 UN BUS INTERFACE SPECIFICATIONS 


 Saseeoseweneassesceosesooscs SEQ 0014 

iSIV/ INT. UNIBUS 

1504 VECTOR ADDRESS REGISTER 

FIRST 224 772520 —*TSBA/TSDB 
772522 TSSR 

SE COND 154 772524  1SBA/TSDB 
772526 ~=—S TSSR 

THIRD 160 772530  TSBA/TSDB 
772532 ~—SsoTSSR 

FOURTH 164 772534  TSBA/TSDB 
772536 ~—S SSR 


ee 


4.4 BIT DEFINITIONS FOR TS11/TSO04 REGISTERS 
a a a a a ee SEQ 0015 


4.4.1 1811/1804 REGISTER SUMMARY 


1S 14 13 12 11 — a” 08 Rl ,v6 2? Aa 22 ve Ba 2 


et ae ee Se ee eee et ee eee eee eee ee ee ee 

rene SAYS! | ATGEATSIAT2! /A1T!A10:409! :A0B!A07 AOE: #AD5 AOS AOS! 'A02!A01 !A00:! 
1 1 ! 

Gace secceeco}oce  senasevctaces Gone} ece}ese pacabewetene § samsbhocutouns 

spe (Peet P16! P13! P12! tPA! 1P10:P09: ‘P08! P07! P06 P05 !PO4 POS! 'PO2!PI7! P16: 

Sound Suendcqnbeces fenuheacbaund Sedbhawebeens Sacndeeshonss Ee A 

'SC '§ 'UPE'SPE'RMR! 'NXM'INBA'AI7! 'Al6!SSRIOFL! 'FCTIFCO!TC2! !TC1!TCO:! : 

TSSR ! .. § ; : 3 : ; 3 : ; 4 : : 4 : 

bomen s semwsemwwsewns Fewetewntewnt Sooo tewateent soeeteoeteent soentecetee=t 

bemns Sewn sewntowns someteweteens} Femeteoeteent soeetowateoent soeeteeeteens 

'TMK' 'RLS'LETIRLL! 'WLE'NEF'ILC! 'JLA'MOTIONL! ‘IE 'VCK!PED! !WLK!BOT!EOT! 

xSTO ! ; 3 : : 7 : a : ; oy | 3 : : 

bmmns Sewmmsewestewns semetowotown$ seoeetewns wont Sooetecetocnt Hoeeteestoeo=t 

‘oLTt. ? 'COR'CRS! !TIG!IDBF!ISCK! ! 'IPR'SYN! 'IPO'IED!POS! !POL!UNC!MTE! 

KST1 ! ; % : : ;. § 'NZ0! 2 : .One  ATAELCOLMZN: 'LRC'CRC!VPE! 

bmmnt Femme tewotewnt seme teownteont ¢oeeteoesten= ¢ ¢emntenetece ee ee eee 

‘OPM! heed whe eet : ‘WCF! : ‘DTP: :DT7:0T6: ‘DTS! tDT4!DTS! 'DT2'DT1!DTO! 

KST2 ! : . 3 : : 4 . ; : : 

feud Seuntenstone + ¢emntennteoe- i debndanesecsd Jonrianntannd Sneetenetuent 

13 MICRO DIAGNOSTIC ERROR CODE LAX: OPI: ‘REV. CRE -DCK: ‘NOI ‘LXS-RIB: 

cond Guebeemiuant Genntonntonss. Jansteasbaned bncadinebace Salbeusbooss 


TERMINATION CLASS CODES (TSSR TCO-TC2): 


NORMAL TERMINATION 

ATTENTION CONDITION 

TAPE STATUS ALERT 

FUNCTION REJECT 

RECOVERABLE ERROR - TAPE POSITION = ONE RECORD 


DOWN TAPE FROM START OF FUNCTION 
RECOVERABLE ERROR - TAPE NOT MOVED 
UNRECOVERABLE ERROR - TAPE POSITION LOST 
FATAL CONTROLLER ERROR 


FATAL CLASS CODES (TSSR FCO-FC1): 


NOW FW © 


0 = MICRO DIAGNOSTIC FAILURE (DISPLAYED IN TSO4 OPERATOR PANEL AND XST3). 
1 = 1/0 SEQUENCER CROM PARITY ERROR. 
2 = MICROPROCESSOR CROM PARITY ERROR. 
SILO PARITY ERROR. 
SERIAL BUS PARITY ERROR DETECTED AT TS11 (SPE). 
SERIAL BUS PARITY ERROR DETECTED AT TS04 (BPE). 
FATAL ERROR HALTS 1750-1777 IN TSO4 PROGRAM COUNTER DISPLAY. 
3 = LOSS OF AC POWER HAS BEEN DETECTED. 





4.4.2 


TS11 STATUS REGISTER «TSSR) 


UNIBUS ADDRESS + 2 - READ ONLY 


15 13 
tenwnt tenntonntene 
a 'UPE ! SPE! RMR! 
' 2 ! ! ' 
beent semntonntonns 
Bl? NAME TCC 
15 =6sC S 
14 UPE 4/5 
>. 7 
12 RMR S 
11 NXM 4/5 
10 NBA § 

09 Al? S 


WO 10 iol 08 06 03 od 05 Oe vb 
+ 


Fema swwnsowns Feoetoeetoea ¢owe}oontoce ¢wwetpoontoee 
(NXMINBA!AT?! TA16!SSRIOFL! FCT FCO! TCR! 'TC1!TCO! 

' ' ! | 1 ! 1 s ! I ' 
jncndenedene4 Fecchccaspewns Sacebeunfoess janchoenjeset 
DEFINITION 


SPECIAL CONDITION. WHEN SET, INDICATES THAT 
THE LAST COMMAND DID NOT COMPLETE WITHOUT 
INCIDENT. SPECIFICALLY, EITHER AN ERROR WAS 
DETECTED OR AN EXCEPTION CONDITION OCCURRED. 
EXCEPTION CONDITIONS CAN BE TAPE MARKS ON READ 
COMMANDS, REVERSE MOTION AND AT BOT, EOT WHILE 
WRITING, ETC. MAY ALSO BE SET BY THE ERROR 
SITS CONTAINED IN THE TSSR REGISTER: UPE, SPE, 


RMR, AND NXM. THE TERMINATION CLASS BITS ARE SOMETHING 
OTHER THAN 0 (UNLESS RMR IS THE ONLY ERROR - SEE RMR). 


UNIBUS PARITY ERROR. SET BY THE TS11 WHEN IT 
DETECTS A PARITY ERROR ON THE UNIBUS DATA WHEN 
TRANSFERRING TO OR FROM THE CPU'S MEMORY. 


SERIAL BUS PARITY ERROR. THIS BIT IS SET BY 
THE 1TS11 WHEN IT DETECTS A SERIAL BUS PARITY 
ERROR ON DATA RECEIVED FROM THE TS04. 


REGISTER MODIFICATION REFUSED. SET BY THE TS11 
WHEN A COMMAND POINTER 1S LOADED INTO TSDB AND 
SUB-SYSTEM READY (SSR) IS NOT SET. NOTE THAT 


THIS BIT CAUSES SPECIAL CONDITION BUT NO TERMINATION 


CLASS (IN FACT, THE TSO4 NEVER SEES THIS ERROR) 
BECAUSE ON A SYSTEM WITH NO BUGS, THIS BIT MAY 
COME UP ON AN ATTENTION MESSAGE. IF ATINS ARE 


NOT ENABLED, THIS BIT COMING UP IS AN INDICATION 
OF EITHER A FATAL CONTROLLER ERROR OR A SOFTWARE 


BUG. 


NON-EXISTENT MEMORY. SET BY THE TS11 WHEN 
TRYING TO TRANSFER TO OR FROM A MEMORY LOCATION 
WHICH DOES NOT EXIST. MAY OCCUR WHEN FE*CHING 
THE COMMAND PACKET, FETCHING OR STORING DATA, 
OR STORING THE MESSAGE PACKET. 


NEED BUFFER ADDRESS. WHEN SET, INDICATES THAT 
THE 1S04 NEEDS A MESSAGE BUFFER ADDRESS. THIS 
BIT IS CLEARED DURING THE SET CHARACTERISTICS 
COMMAND (IF A GOOD ADDRESS WAS GIVEN). 


BUS ADDRESS BIT 17. A17 AND Al6 (BIT 08) TRACK 


SEQ 0016 
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08 Al6 S 
07 SSR S 
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.«£ 
THE VALUES OF BITS 17 AND 16 OF THE TSBA 
REGISTER. 


BUS ADDRESS BIT 16. SEE Al? (BIT 09). 
SUB-SYSTEM READY. WHEN SET, INDICATES THAT THE 
TS11/TSO4 SUBSYSTEM IS NOT BUSY AND IS READY TO 
ACCEPT A NEW COMMAND POINTER. 


OFF-LINE. WHEN SET, INDICATES THAT THE 1504 IS 
OFF-LINE AN. UNAVAILABLE FOR ANY TAPE MOTION 


COMMANDS. THIS BIT CAN CAUSE A TERMINATION CLASS 


OF 1 (ON ATIN INTERRUPT) OR 3 (RESULTS IN NEF). 


FATAL TERMINATION CLASS 01. FC1 AND FCO (BIT 
04) ARE USED TO INDICATE THE TYPE OF FATAL 
ERROR WHICH HAS OCCURRED ON THE 1804. THESE 
BITS ARE VALID ONLY WHEN SC IS SET AND THE 
TERMINATION CLASS CODE BITS ARE ALL SET (111). 


FATAL TERMINATION CLASS 00. SEE FCI (BIT 05). 


TERMINATION CLASS BIT 02. THIS BIT, ALONS WITH 
THE TC1 AND TCO BITS, ACT AS AN OFFSET VALUE 
WHENEVER AN ERROR OR EXCEPTION CONDITION OCCURS 
ON A COMMAND. EACH OF THE EIGHT POSSIBLE 
VALUES OF THIS FIELD REPRESENT A_ PARTICULAR 
CLASS OF ERRORS OR EXCEPTIONS. THE CONDITIONS 
IN EACH CLASS HAVE SIMILAR SIGNIFICANCE AND, AS 
APPLICABLE, RECOVERY PROCEDURES. THE CODE 
PROVIDED IN THIS FIELD IS EXPECTED 10 BE 
UTILIZED AS AN OFFSET INTO A DISPAICH TABLE FOR 
HANDLING OF THE CONDITION. 


TERMINATION CLASS BIT 01. SEE TC2 (BIT 03). 
TERMINATION CLASS BIT 00. SEE TC2 (BIT 95). 
NOT USED. 


UNIBUS ADDRESS + 2 = WRITE ONLY 


SUBSYSTEM INITIALIZE 


_—— a ee ee ee 


SEQ 0017 
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SEQ 0018 
4.4.5 EXTENDED STATUS REGISTER 0 (XSTATO) 


15 14 135 12 11 10 09 08 O07 06 05 04 05 02 01 00 


‘TMK! “RLS. LET-RLL: ‘WLE NEF: ILC: 'TLA!MOT!ONL' !IE !VCK!IPED! !Wik!BOT!EOT! 
ae ‘Se i 4 it 


BlT NAME TCC DEFINITION 
15 =MK Pr TAPE MARK DETECTED. SET WHENEVER A TAPE MARK 


WAS DETECTED DURING A READ, SPACE, OR SKIP 
COMMAND AND AS A RESULT OF THE WRITE TAPE MARK 
OR WITE TAPE MARK RETRY COMMANDS. 


14 RLS 2 RECORD LENGTH SHORT. THIS BIT INDICATES THAT 
EITHER THE RECORD'S LENGTH WAS SHORTER THAN THE 
BYTE COUNT ON READ OPERATIONS, A SPACE RECORD 
OPERATION ENCOUNTERED A TAPE MARK OR BOT BEFORE 
THE POSITION COUNT WAS EXHAUSTED, OR A_ SKIP 
TAPE MARKS COMMAND WAS TERMINATED BY 
ENCOUNTERING BOT OR A DOUBLE TAPE MARK (IF THAT 
OPERATIONAL MODE IS ENABLED, SEE LET) PRIOR T0 
EXHAUSTING THE POSITION COUNTER. 


[o. ART 2 LOGICAL END OF TAPE. SET ONLY ON THE SKIP TAPE 
MARKS COMMAND WHEN EITHER TWO CONTIGUOUS TAPE 
MARKS ARE DETECTED OR WHEN MOVING OFF OF BOT 
AND THE FIRST RECORD ENCOUNTERED IS A TAPE 
MARK. THE SETTING OF “THIS BIT WILL NOT OCCUR 
UNLESS THIS MODE OF TERMINATION IS ENABLED 
THROUGH USE OF THE SET CHARACTERISTICS COMMAND. 


le MA 2 RECORD LENGTH LONG. WHEN SET, THIS BIT 
| INDICATES THAT THE RECORD READ WAS LONGER THAN 
THE BYTE COUNT SPECIFIED. 


11 3 =WLE 3.6 WRITE LOCK ERROR. WHEN SET, INDICATES THAT A 
WRITE OPERATION WAS ISSUED BUT THE MOUNTED TAPE 
DID NOT CONTAIN A YRITE ENABLE RING OR THE WRT 
LOCK SWITCH ACTIVATED DURING THE OPERATION. 


10 ~=NEF 5 NON-EXECUTABLE FUNCTION. WHEN SET, INDICATES 
THAT THE COMMAND COULD NOT BE EXECUTED DUE TO 
ONE OF THE FOLLOWING CONDITIONS: 


| 
| 
| 
- THE COMMAND SPECIFIED REVERSE TAPE | 
DIRECTION BUT THE TAPE WAS ALREADY | 
POSITIONED AT BOT. | 

- THE ISSUING OF ANY COMMAND, EXCEPT REWIND, | 
| 

| 

i 

| 
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09 


08 


07 
06 


05 


04 


03 


(02 


01 


00 


ILC 


ILA 


MOT 
ONL 


PED 


WLK 


BOT 


EOT 


5.3 


$.5 


5.2 


G 2 


UNLOAD, OR A COMMAND WITH THE CLEAR VOLUME 
CHECK (CVC) BIT SET, WHEN THE VOLUME ChFCK 
BIT iS SET. 

- ANY COMMAND, EXCEPT GET STATUS OR ORIVE 
INITIALIZE, WHEN THE TSO4 IS OFF-LINE. 

- ANY WRITE COMMAND WHEN THE TAPE DOES NOT 
CONTAIN A WRITE ENABLE RING (WRITE LOCK 
STATUS - WLS). 


ILLEGAL COMMAND. SE7T WHEN A COMMAND 1S ISSUED 
AND EITHER ITS COMMAND FIELD OR ITS COMMAND 
MODE FIELD CONTAINS CODES WHICH ARE NOT 
SUPPORTED BY THE TS04. 


ILLEGAL ADDRESS. (MORE THAN 18 BITS OR ODD WHEN 


AN EVEN ADDRESS IS REQUIRED.) 
TAPE 1S MOVING. 


ON LINE. WHEN SET, INDICATES 1HAT THE TS04 IS 
ON-LINE AND OPERABLE. 


INTERRUPT ENABLE. REFLECTS THE STATE OF THE 
INTERRUPT ENABLE B11 SUPPLIED ON THE LAST 
COMMAND. 


VOLUME CHECK. WHEN SET, INDICATES THAT THE 
DRIVE HAS BEEN EITHER POWERED DOWN OR TURNED 
OFF-LINE. CLEARED BY THE CLEAR VOLUME CHECK 
(CVC) BIT IN THE COMMAND HEADER WORD. THIS BIT 
CAN CAUSE A TERMINATION CLASS OF 35. 


PHASE ENCODED DRIVE. WHEN SET, INDICATES THAT 
THE TSO04 IS CAPABLE OF READING AND WRITING ONLY 
1600 BP] PHASE ENCODED DATA. WHEN RESET, 
INDICATES THAT THE TSO4 HAS ONLY 8U0 BPI NRZI 
DATA CAPABILITIES. 


WRITE LOCKED. WHEN SET, INDICATES THAT THE 
MOUNTED REEL OF TAPE DOES NOT HAVE A 
WRITE-ENABLE RING INSTALLED. THE TAPE iS, 
THEREFORE, WRITE PROTECTED. 


BEGINNING OF TAPE. WHEN SET, INDICATES THAT 
THE TAPE IS POSITIONED AT THE LOAD POINT AS 
DENOTED BY THE BOT REFLECTIVE STRIP ON THE 
TAPE. 


END OF TAPE. THIS BIT 1S SET WHENEVER THE TAPE 
1S POSITIONED AT OR BEYOND THE END OF TAPE 
REFLECTIVE STRIP. DOES NOT RESET UNTIL THE 
TAPE PASSES OVER THE REFLECTIVE STRIP IN THE 
REVERSE DIRECTION UNDER PROGRAM CONTROL. 


er ee eee eee - oe ee ee a ee ee 


; SEQ 0019 
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SEQ 0020 
4.4 EXTENDED STATUS REGISTER 1 (XSTATI) 


15 14 13 le 11 10 09 08 O07 06 05 04 03 02 01 00 


et ee ee ee et ee ee ee ee ee ee ee ee eee ee 
4 oe. 'COR!CRS! 'TIG!DBFISCK! ! 'IPR'SYN! 'IPO'IED!POS! !POL!UNC!MTE! 
; ; 3 : ; =. 'NZO! : 4 : 'DRP! 'TTMILCO'NZN! 'LRC!ICRC!VPE! 
deme seme sewntwons Fsewesewosowns Fewetocateon} Feeetecetoees seestecetoens 

B11 NAME TCC DEFINITION 

15 DLT 4 DATA LATE. SET WHEN THE 1/0 SILO IS FULL ON A 


READ OR EMPTY ON A WRITE. THESE CONDITIONS 
OCCUR WHENEVER THE UNIBUS LATENCY EXCEEDS THE 
DATA TRANSFER RATE OF THE TS04. 


14 - - NOT USED. 

15. COR S CORRECTABLE DATA. IN PHASE ENCODED MODE, A 
CORRECTABLE DATA ERROR HAS BEEN ENCOUNTERED. 

1. O83 4 CREASE DETECTED. FOR NRZ1, ALL DATA TRACKS 


DROPPED OUT FOR MORE THAN THREE CHARACTER TIMES 
BUT FOR LESS THAN .1 INCHES OF TAPE. FOR PE, 
EIGHT OUT OF NINE DATA TRACKS WENT DEAD FOR 
LESS THAN .1 INCHES BEFORE A VALID POSTAMBLE 
WAS DETECTED. 


11 TIG & TRASH IN THE GAP. NON-ERASED DATA WAS DETECTED 
IN A GAP DURING A READ, WRITE, WRITE TAPE MARK, 
OR ERASE COMMAND. 


10 ~=—DBF ‘4 EXCESSIVE SKEW. FOR NRZ1, DATA OCCURRED 
BETWEEN THE 50% MARK AND THE 100% MARK OF THE 
NRZ] DATA WINDOW. FOR PE, 11 TOOK MORE THAN 
FIVE CHARACTERS IN READ-AFTER-WRITE OR TEN 
CHARACTERS IN READ TO PROPERLY CENTER THE 
WINDOWS OF THE FORMAT CHANNEL LOGIC. 


NZO 4 NRZ FIFO OVERRUN. 


09 SCK “ SPEED CHECK. TAPE SPEED WAS OFF BY MORE THAN 
5% DURING A WRITE DATA OPERATION. NOTE THAT SPEED 
AVERAGED OVER 8 TICKS AND THE AVERAGE MUST BE OFF 
5% TO CAUSE THIS ERROR. 


08 - - NOT USED. 


07 JPR 5,4 INVALID PREAMBLE. StT ON A PE ORIVE IF THE 
PREAMBLE APPEARS 10 BE SHORTER THAN 56 
CHARACTERS OR LONGER THAN 44 CHARACTERS. ALSO 
SET JF THE PREAMBLE IS _ INCORRECTLY ENCODED 
BEYOND THE FIFTEENTH CHARACTER IN READ OR THE 
TENTH CHARCTER IN READ-AFTER-WRITE. 


05 


04 


03 


02 


01 


00 


SYN 


LRP 


1PO 


11m 


1ED 


LRO 


POS 


NZN 
POL 


LRC 


UNC 


CRC 


MIE 


VPE 


i. 
SYNCH FAILURE. SET ON A PE ORIVE If THE 
FORMATTER WAS UNABLE TO ACHIEVE SYNCHRONIZATION 
IN THE PREAMBLE. 


NRZ RECORD DROPPED A CHARACTER (THE NEXT CHARACTER 
WAS TO BE CONSIDERED CRC). - 


INVALID POSTAMBLE. SET ON A PE DRIVE DURING 
READ OR WRITE IF ANY OF THE FIRST 59 CHARACTERS 
OF THE POSTAMBLE ARE NOT READ CORRECTLY. 
ILLEGAL TAPE MARK FOR NR7. 


INVALID END DATA. FOR PE, EIGHT OUT OF NINE 


TRACKS WENT DEAD BEFORE THE POSTAMBLE WAS DETECTED. 


FOR NRZ1, DATA WAS NOT DETECTED IN EITHER THE 
LRCC OR CRCC WINDOWS. (LRC WAS ZERO) 


POSTAMBLE SHORT. SET ON PE DRIVES DURING A 
READ OR WRITE WHEN LESS THAN 38 ALL-ZEROES 
CHARACTERS ARE READ FOLLOWING THE ALL=-ONES 
CHARACTER. 


NRZ NOISE RECORD (FEWER THAN 15(10) FRAMES). 


POSTAMBLE LONG. SET ON PE DRIVES DURING READ 
OR WRITE OPERATIONS WHEN THE POSTAMBLE EXCEEDS 
42 CHARACTERS. 


LRC ERROR. SET ON NRZ] DRIVES WHEN THE LRCC 
CHARACTER WAS FOUND IN ERROR. 


UNCORRECTABLE DATA. SET ON PE DRIVES WHEN A 
PARITY ERROR OCCURRED WITHOUT A CORRESPONDING 
DEAD TRACK INDICATION. 


CRC ERROR. SET ON NRZI] DRIVES WHEN THE CRC 
CHARACTER WAS FOUND TO BE IN ERROR. 


MULTI-TRACK ERROR. SET ON PE DRIVES WHEN MORE 
THAN ONE DEAD TRACK OCCURRED IN THE PREAMBLE OR 
IN THE DATA FIELD. 


VERTICAL PARITY ERROR. SET ON NRZJ DRIVES WHEN 
A CHARACTER DID NOT CONTAIN AN ODD NUMBER OF 
ONE BITS. 


eee _— a - 


SEQ 0021 
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4.4.5 EXTENDED STATUS REGISTER 2 (XSTAT2) 


wanna nnn n anne anne =n a= n--- = 2-2 = =e == SEQ 0022 
15 14 13 1211 10 09-08 07 06 05. 04 03020100 
Qe@wnt Geees4steewetoeaw4} {eee t}{oeaet{_oc= 4 ¢4eeetowo4qoen4 ewe toee}qoeen4} {oeetq{oaaet}{oce 
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poset Jooctecetooes UE TORR eae Jecotocctooes a EE posctocoesooes 
Bll NAME TCC DEFINITION 
15 OPM S OPERATION IN PROGRESS. (TAPE MOVING) 
14 SIP 7 SILO PARITY ERROR. CAUSES FATAL CLASS 2 BECAUSE THE 


ERROR MIGHT HAVE OCCURRED DURING THE TRANSMISSION OF THE 
MESSAGE PACKET. 


15. BPE 7 SERIAL BUS PARITY ERROR AT DRIVE. SET BY THE 
TSO4 WHEN A_ PARITY ERROR IS DETECTED ON DATA 
TRANSMITTED FROM THE 1TS11 TO THE TSO4. CAUSES FATAL 
CLASS 2 BECAUSE THE ERROR MIGHT HAVE OCCURRED DURING 
THE TRANSMISSION OF THE MESSAGE PACKET. 


12 CAF 7 CAPSTAN ACCELERATION FAIL. AFTER ACCELERATING 
TAPE FOR .2 INCHES, THE TAPE SPEED WAS CHECKED 
AND FOUND TO BE OUT OF TOLERANCE BY MORE THAN 


10%. 
11 - - NOT USED. 
10 ——oWCF 7 DESKEW BUFFER FAIL. ONE OF THE DESKEW BUFFERS 


FAILED TO ASSERT ‘“‘OUTPUT READY’ WITHIN 20 
MICROSECONDS AFTER BEING ENABLED. iHE DEAD 
TRACK BITS WILL INDICATE ON WHICH TRACKS THIS 
FAILURE OCCURRED. 


09 - - NOT USED. 


08 OTP S DEAD TRACK PARITY. THE BITS DTP THROUGH ODTO0 
INDICATE WHICH TRACK(S) WENT DEAD, IF ANY, 
DURING THE LAST DATA TRANSFER OPERATION. lf 
DESKEW BUFFER FAIL (DBF) IS SET, THESE BITS 
INDICATE WHICH CHANNEL FAILED. 


07 ODT? S DEAD TRACK 7. SEE DTP. 
06 ODT6 S DEAD TRACK 6. SEE DIP. 
05 075 S DEAD TRACK 5. SEE DTP. 
04 ODT4 S DEAD TRACK 4. SEE DIP. 
03 015 S DEAD TRACK 3. SEE DIP. 


02 OTe S DEAD TRACK 2. SEE DIP. 


01 OT S DEAD TRACK 1. SEE DTP. 
00 DdT0 S DEAD TRACK 0. SEE DTP. 
NOTE: ON A SET CHARACTERISTICS COMMAND, THE UCODE LEVEL IS RETURNED 


IN O17 THRU DTO. ON A GET STATUS COMMAND, THE RESIDUAL CAPSTAN 
TICK COUNT CINTERNALLY R7) IS RETURNED IN DT7 THRU DTO. 


SEQ 0023 
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EXTENDED STATUS REGISTER 3 (XSTAT3) 


15 ad 


13 a Ae 10 09 08 nail 06 03 - 05 02 i 00 


MICRO DIAGNOSTIC ERROR CODE 'LAX!OPI! REVCRF !DCK tNOI !LXS!R1B: 
! ' zm. ! ! 


NAME TCC 


NTL 


OP] 


REV 


CRF 


DCK 


NO] 


$,6 


MICRO DIAGNOSTIC ERROR CODE. (SEE LIST OF CODES BELOW). 
ALL ERROR CODES IN THE TABLE WILL BE DISPLAYED ON 

THE TSO4 CONTROL PANEL BUT ONLY CODES HIGHER THAN 

110 WILL BE AVAILABLE TO CPU DIAGNOSTICS FOR PRINTOUT 
IN THE MICRO DIAGNOSTIC ERROR CODE FIELD OF XSTATS. 
THIS ERROR CODE FIELD 1S VALID ONLY WHEN THE 
TERMINATION CLASS CODE IN THE TSSR EQUALS 7 AND THE 
FATAL CLASS CODE IN THE TSSR EQUALS 0, INDICATING 

AN INTERNAL DIAGNOSTIC FAILURE. 


LIMIT EXCEEDED. SET WHEN THE TAPE TENSION ARMS 
HAVE EXCEEDED THEIR ALLOWABLE TRAVEL AND HAVE 
CAUSED THE ACTIVITATION OF THE LIMIT SWITCHES. 
NO TENSION EXISTS ON THE MOUNTED TAPE. 


OPERATION INCOMPLETE. SET WHEN A READ, SPACE, 
OR SKIP OPERATION HAS MOVED 25 FEET OF TAPE 
WITHOUT DETECTING ANY DATA ON THE TAPE. 


DIRECTION OF CURRENT OPERATION WAS REVERSE (BUT 
1S 0 IF REWIND OR FORWARD) 


CAPSTAN RESPONSE FAILURE. A MOTION COMMAND WAS 
GIVEN TO THE CAPSTAN BUT WE DID NOT GET A TICK 
BACK WITHIN A REASONABLE AMOUNT OF TIME. 


DENSITY CHECK. SET ON PE DRIVES WHEN A PE 
IDENTIFICATION BURST WAS NOT ODETECIED WHEN 
MOVING OFF OF BOT. SET ON NRZI DRIVES WHEN A 
NON-NRZ] IDENTIFICATION BURS’T WAS FOUND WHEN 
MOVING OFF OF BOT. 


NOISE RECORD. SET DURING A READ OR SPACE 
OPERATION WHEN A BURST OF FLUX CHANGES, WHICH 
DO NOT QUALIFY AS A RECORD (BUT TOO MANY TO 
IGNORE), ARE DETECTED: 


NRZ1: AT LEAST TWO CHARACTERS IN A ROW BUT 
LESS THAN TWELVE, FOLLOWED BY A CHARACTER IN 
EITHER THE CRCC OR LRCC WINDOWS. 


PE: AT LEAST 24 CHARACTERS IN A ROW THAT DO 
NOT QUALIFY AS A TAPE MARK OR A DATA 
PREAMBLE. 


SEQ 0024 


mM 2 
O1 LXxS S LIMIT EXCEEDED STATICALLY. THIS BIT IS SET ANY 


TIME THE LIMIT SWITCHES ARE EXCEEDED. THIS BIT 


CAN ONLY BE CLEARED BY MANUALLY LOADING THE TAPE. 


00 RIB 2 REVERSE INTO BOT. A READ, SPACE, OR SKIP 
COMMAND ALREADY IN PROGRESS HAS ENCOUNTERED THE 
BOT MARKER WHEN MOVING TAPE IN THE REVERSE 
DIRECTION. TAPE MOTION WILL BE HALTED 4T BOT. 


4.4.7 MICRO DIAGNOSTIC ERROR CODES 


FOLLOWING IS A LIST OF THE ERRORS WHICH ARE DISPLAYED IN THE MICRO 


DIAGNOSTIC ERROR CODE (XSTAT3 BITS 15 = 08) AND ALSO IN THE LIGHTS ON THE 


TSO4 CONTROL PANEL, DUE TO FAILURES ON THE CAPSTAN BOARD, 1/0 BOARDS, 
WRITE BOARD, READ BOARD, OR FORMATTER BOARD. THE MICRO WILL BE INA 
TIGHT LOOP IN THE DISPM PROGRAM, WAITING FOR OPERATOR OR CPU 
INTERVENTION WHILE THE ERROR 1S BEING DISPLAYED IN THE CONSOLE 
LIGHTS. 11 1S APPARENT THAT AN ERROR IS BEING DISPLAYED IF THE ‘“‘UOK"’ 
LIGHT IS NOT LIGHTED, THE PROCESSOR 1S NOT STOPPED, AND AN OCTAL 
NUMBER (100-377) 1S BEING DISPLAYED IN THE LIGHTS. TO SCOPE LOOP 
THESE TESTS, ENTER MAINTENANCE MODE (ON-LINE SWITCH TO ‘‘OFF’’ 
POSITION, MAINTENANCE SWITCH UP, PRESS RESET), ENTER THE OFF-LINE 
TEST NUMBER (SEE SCOPE LOOP COLUMN BELOW) IN THE OPERATOR CONSOLE 
LIGHTS (ENTER ONES WITH LEFT-MOST SWITCH, ENTER ZEROES WITH 
RIGHT-MOST SWITCH), AND PRESS ON-LINE BUTTON. TEST WILL LOOP UNTIL 
ON-LINE SWITCH IS RETURNED TO OFF-LINE POSITION, ERRORS WILL BE 
DISPLAYED CONTINUOUSLY. 


SCOPE 
LOOP 


ERROR PROGRAM ERROR DESCRIPTION LIKELY 

(DISPLAY) MODULE 

337 OPERATIONAL CAPSTAN RUNAWAY ERROR (H3.RNY). CAPSTAN DION'T 
CODE STOP WITHIN ACCEPTABLE WINDOW AFTER LAST COMMAND. 


100 1OTSM BASIC 1/0 MICRO FAILURE (PARITY M8967 
ERROR, IOATN, HANDSHAKING, AND 
DATA WINDOW TEST BETWEEN THE 1/0 
AND MAIN MICROS. 


NOTE: CAN ALSO BE CAUSED BY THE 
SERIAL BUS .SHIN (SHIFT IN) 
STUCK ASSERTED. 


101 1O1TSM ERROR IN 1/0 CONTROL REGISTER TEST M8966 
M8967 

102 101SM FAILURE OF FRAME COUNTER TEST M8966 
103 1OTSM FAILURE OF 1/0 SILO NON-PARITY ERROR M8966 
DATA TEST OR THE WRITE FLAG. M8965 

104 JO1TSM FAILURE OF 1/0 SILO PARITY ERROR M8966 


14 


15 
16 


SEQ 0025 


105 
106 
107 
110 


11 


113 


116 


117 


120 


121 


124 


125 


126 


1073S" 
101S* 
1OTSM 
1O1TSM 


CATSM 


CATSM 


CATSM 


CATSM 


CATSM 


CATSM 


CATSM 


PETSM 


PETSM 


PETSM 


PETSM 


PETSM 


TEST OR DATA LATE TEST. 

FAILURE OF SHIFT LOOP WITH ZEROES. 
FAILURE OF SHIFT LOOP WITH ONES. 
FAILURE OF SHIFT LENGTH MUX. 


FAILURE TO RECEIVE CORRECT OP-CODE 
FROM TS11 WHEN WE SENT DATA OVER 
THE SERIAL BUS. 


FAILURE GF 1 KHZ CLOCK TEST. 
TSTS TAC SYNC FLOP AND ATIN, TOO. 


LIGHT REGISTER CHANGED WHEN MOTION 
REGISTER WAS CLEARED. 


FWD OR MVG BITS WRONG AFTER 1 TICK 
OF SIMULATED COMMAND AND TACH PULSES. 


FAILURE OF SIMULATED CAPSTAN 
SPEED TEST. THE CAPSTAN SPEED 
COUNTER WAS OUT OF RANGE WHEN 
TAPE MOTION AT SPEED WAS 
SIMULATED. 


FAILURE OF SIMULATED SLOW CAPSTAN 
TEST. SPEED COUNTER DID NOT LATCH 
UP WITH MAX COUNT WHEN SLOW TACH 
TICKS WERE SIMULATED. 


FAILURE OF SIMULATED CAPSTAN DECEL 
TEST. COUNTER NOT ZERO FOR FORWARD 

OR 377 FOR REVERSE WHILE DECELERATING, 
OR MVG BIT NOT 1. 


FAILURE OF MOVING FLOP TO GO TO ZERO 
AFTER STOPPING (DIRECTION REVERSAL 
FOR ONE TACH TICK). 


FAILURE OF WRITE BOARD TO TURN ON 
AND EMPTY THE SILO, OR DATA LATE 
BIT DOESN'T WORK. 


FAILURE OF WRITE BOARD TO EMPTY 
SILO AT CORRECT SPEED. 


FORMATTER FLAG DOESN'T WORK ON THE 
M8922. 


’ 


FORMATTER SILO FILLING AND DATA 
ERROR 


PEAK SHIFT TEST ERROR 


M8965 én 
M8965 = 21 
M8965 22 
M8965 47 
T$11 

MOTHER BD 
SBUS CABLE 
G159 2 
CBUS CABLE 
M8963 

G159 3,4 
G159 3,4 
G159 3,4 
G159 3,4 
G159 3,4 
G159 3 uh 
M8929 = 23 
M8966 

M8929 = 23 
M8922 = 24 
M8922 824 
M8923 

M8924 

M8922 = 25 
M8925 


SEQ 0026 
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FORMATTER TABLE LOOKUP ROM CHECKSUM 
TEST ERROR 


B 
M8922 
M8925 
M8924 


5 
2¢ 


SEQ 0027 


5.0 TEST SUMMARIES 


5.1 


Pot 


awe 
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TEST 1 = PDP=11/TS11 WRAP TEST 


TEST TO INSURE PROPER COMMUNICATION BETWEEN THE PDP11 AND THE TS11 BY 
WRAPPING THE FOLLOWING PATTERNS: 
A 1 IN A FIELD OF O'S AQ IN A FIELD OF 1°S. 


WHEN DATA IS WRITTEN TO THE TSDB H] BYTE, THE DATA IS WRAPPED 
AROUND WIHTIN THE TS11 AND APPEARS IN THE TSBA LO 

AND H] BYTES. THE 2 LOW ORDER BITS OF THE DATS WILL BE 
REFLECTED IN THE TSSR EXTENDED ADDRESS BITS. 

R4 CONTAINS A COPY OF THE DATA SENT. 

R3 CONTAINS THE*EXPECTED TSBA RESULTS 

R2 CONTAINS THE EXPECTED STATE OF THE TWO EXTENDED ADDRESS 
BITS IN THE TSSR. 


TEST 2 = PDP=-11/TSO4 WRAP TEST 


TEST TO INSURE PROPER COMMUNICATION BETWEEN THE PDP11 AND 
"HE TSO4 BY WRAPPPING THE FOLLOWING PATTERN: 
A’ INA FIELD OF 0°S; AO INA FIELD OF 1°S 


WHEN THE DATA IS WRITTEN TO THE TSDB LO BYTE,THE DATA IS 
SENT TO THE TSO04, VIA THE SERIAL LINE, WHERE iT IS WRAPPED 
AROUND BACK OVER THE SERIAL LINE TO THE TS11. THE DATA THEN 
APPEARS IN THE TSBA LO AND TSSR LO BYTES. 

R4 CONTAINS THE EXPECTED TSBA RESULTS AND THE 

EXPECTED TSSR RESULTS. 


TEST 3 = SET TSO4 CHARACTERISTIC 
THE FUNCTION OF THIS TEST IS TO ISSUE A ‘’SET CHARACTERISTIC’ COMMAND 


TO TELL THE TSO04 WHERE IN CORE THE MESSAGE PACKET RESIDES AND 10 
VERIFY THAT A MESSAGE PACKET WAS STORED. 


me 


ee ee 


SEQ 0028 


5.4 


TESTS 4 = 7 PERFORM DATA WRAPS ON THE P.E. READ FORMATTER 

BOARDS. COMMUNICATION BETWEEN THE PDP11 AND 1TS04 OCCURS BY USING 

THE DIA (DIAGNOSTIC) COMMAND WHICH SENDS A COPY OF THE DIABLK TABiE, 
RESIDING IN CORE, TO THE TSO4 CONTROLLER. THE FORMAT OF THE DIABLK IS 
SHOWN IN THE FOLLOWING TABLE. NOTE THAT THE TABLE IS FILLED IN REVERSE 
ORDER, THAT 1S, THE LAST LOGICAL ENTRY OF THE TABLE 1S LABELED DIABLK, 
WHILE THE FIRST LOGICAL ENTRY OF THE TABLE IS LABELED DIABLK*DIAEXT, WHERE 
DIAEXT 1S THE LENGTH (EXTENT) OF THE TABLE IN BYTES. 


WHEN THE DIA COMMAND IS EXECUTED, THE DIABLK IS LOADED ONTO THE TS04 STACK 
WITH THE FIRST LOGICAL ENTRY AT THE TOP OF THE STACK, AS SHOWN BELOW. 

THE TSO4 THEN JUMPS TO THE P.E. WRAP TASK, IN ROM, WHERE THE FUNCTION IS 
EXECUTED USING THE REMAINING STACK ENTRIES AS ARGUMENTS. 


DIABLK+DIAEXT: TSO4 PE WRAP TASK ADDR LO 
TSO4 PE WRAP TASK ADDR HI 
READ CONTROL (RDCTLO) 
FORMAT CONTROL (FMCTLO) 
DATA 


CONTROL (10SCO) 
DATA 
CONTROL (10SCO) 
DATA 
CONTROL (10SCO) 
DATA 
CONTROL (10SCO) 
DATA 
CONTROL (10SCO) 
DATA 


DIABLK: CONTROL (10SCO) 


SEQ 0029 


§.4.2.1 


TRACK ACTIVE/TRACK INACTIVE TESTS (TEST 4) 


TEST 4 CHECKS THAT THE TRACK ACTIVE FLOP CAN SET AND CLEAR 

IN NRZ] MODE FOR ALL CHANNELS. IF THE DATA DOES NOT MAKE A TRANSITION 
WHEN THE WRITE FLAG 1S UP, THE TRACK ACTIVE FLOP WILL CLEAR. 

HOWEVER, 17 WILL SET IF THERE IS A DATA TRANSITION WHILE THE 

WRITE FLAG 1S UP. 


SUBTEST 1 = TRACK INACTIVE TEST 


THIS TEST FORCES THE TRACK ACTIVE TO CLEAR BY WRITING 
ALL O'S DATA. THE PATTERN IS AS FOLLOWS FOR EACH CHANNEL: 


DATA: 000000 

WRIFLG: 011100 

TRACK ACTIVE: SHOULD BE 0 FOR ALL TRACKS 
SUBTEST 2 = TRACK ACTIVE TEST 


THIS TEST FORCES TRACK ACTIVE TO SET BY WRITING THE FOLLOWING 
PATTERN ON EACH CHANNEL: 


DATA: 110000 

WRIFLG: 011100 

TRACK ACTIVE: SHOULD BE 1 FOR ALL TRACKS. 
SUSTEST 3 = TRACK INACTIVE TEST 


THIS TEST FORCES THE TRACK ACTIVE TO CLEAR BY WRITING THE FOLLOWING 
PATTERN ON EACH CHANNEL: 


DATA: 111111 

WRIFLG: 011100 

TRACK ACTIVE: SHOULD BE 0 FOR ALL TRACKS 
SUBTEST & = TRACK ACTIVE TEST 


THIS TEST FORCES THE TRACK ACTIVE FLOP TO SET BY WRITING THE FOLLOWING 
PATTERN ON EACH CHANNEL: 


DATA: 001111 

WRIFLG: 011100 

TRACK ACTIVE: SHOULD BE 1 FOR ALL TRACKS. 
P.E. DATA TEST (TEST 5) 


TEST 5 WRAPS A DATA PATTERN TO CHECK EACH TRACK 
FOR BIT PICKUPS AND DROPS. 


REGISTER USAGE 1S AS FOLLOWS: 

R2 = PREAMBLE DATA FOR TRACKS 1-9 IN BIT POSITION 0-8. 

R3 = 1ST BYTE OF DATA FOR TRACKS 1-9 IN BIT POSITION 0-8. 
THIS IS THE DATA INTEREST AFTER EXECUTING THE TSO04 DIA 
COMMAND. 

RG = 2ND BYTE OF DATA FOR TRACKS 1-9 IN BIT POSITION 0-8. 

SUBTEST 1 = P.E. DATA TEST/O PATTERN, 


THIS TEST WRAPS AN ALL O°S PATTERN. 


A = ee 


SEQ 0050 


5.4.2.2 


5.4.2.5 


5 4.2.4 


5.4.5 


5.4.5.1 


$.4.3.2 


SUBTEST 2 - P.E. DATA TEST/1 PATTERN. 
THIS TEST WRAPS AN ALL 1°S PATTERN. 
SUBTEST 5 = P.E. DATA TEST/SHIFTING 1 PATTERN. 
THIS TEST RIPPLES A 1 IN A FIELD OF O°S. 
SUBTEST 4 = P.E. DATA TEST/SHIFTING 0 PATTERN. 
THIS TEST RIPPLES A 0 IN A FIELD OF 1°S. 
TEST 6 SKEWS THE DATA ON A TRACK BY ONE BYTE WITH 
RESPECT TO ALL THE OTHER TRACKS. THAT IS, THE DATA IS ONE BYTE 
LATE ON THE ONE TRACK. EACH TRACK IS TESTED FOR SKEW IN THIS 
MANNER. REGISTER ASSIGNMENTS ARE AS FOLLOWS: 
R2 = PREAMBLE DATA 
R353 = BYTE 1 DATA (WITH THE EXCEPTION OF THE SKEWED TRACK. 
THAT TRACK CONTAINS PREAMBLE DATA) 
R4 = BYTE 2 DATA (WITH THE EXCEPTION OF THE SKEWED TRACK. 
THAT TRACK CONTAINS BYTE 1 DATA) 
SUBTEST 1 - P.E. SKEW TES? 


THIS TEST WRITE AN ALL 1°S PREAMBLE (SKEWED), AN ALi O°S BYTE 
1 (SKEWED), AND AN ALL 1°S BYTE 2 DATA (SKEWED). 


SUBTEST 2 - P.E. SKEW TEST 


THIS TEST SENDS AN 4i.L 1°S PREAMBLE (SKEWED), AN ALL 1°S BYTE 
1 DATA (SKEWED) AND AN ALL O'S BYTE 2 DATA (SKEWED). 


TEST 7 CHECKS THE DEAD TRACK LOGIC BY RIPPLING A 

DEAD TRACK THRU A FIELD OF LIVE TRACKS AND ONE LIVE TRACK THRU 
A FIELD OF DEAD TRACKS. ADDITIONALLY, EACH SUBTEST WILL SEND 
1°S DATA AND 0°S DATA IN ORDER TO TEST THE 1°S OR DEAD REGISTER 
AND THE O'S OR DEAD REGISTER. 


REGISTER USAGE: 

= PREAMBLE ALL 1°S CHARACTER 
R3 = 1ST DATA BYTE (BITS 0-8) 

= 2ND DATA BYTE (BITS 0-8) 


DTK 1DN 


DEAD TRACK DEFINED IN BITS 0-8 (C=LIVE TRE; 1=DEAD TRK) 


SEQ 0051 


6 3 Sane Soe 
5.4.4.1 SUBTEST 1 = PLE. DEAD TRACK TEST | 
SEQ 0032 
THIS TEST RIPPLES A DEAD TRACK IN A FIELD OF LIVE TRACKS. | 
5.4.4.2 SUBTEST 2 - P.£. DEAD TRACK TEST 
THIS TEST RIPPLES A LIVE TRACK IN A FIELD OF DEAD TRACKS. 
5.5 TEST 8 = LOOKUP TABLE TEST 
THIS TEST VERIFIES THAT THE CONTENTS OF THE ROM LOOKUP TABLE 

ARE CORRECT. THE ROM CONTENTS IN ADDRESSES 1777-0 ARE CHECKED. 

DATA AND REGISTER USAGE: 


ROM LOOKUP TABLE ADDRESS. 
ERROR FLAG. 

DIABLK INDEX. 

5.6 TEST 9 = INLINE MICRO DIAG TEST 


ee INLINE MICRO DIAGS TO RUN, THEN CHECKS THE STATUS THEY 
RETURN. 


PF TEST 10 = INIT MICRO DIAG TEST 


ALLOWS INIT MICRO DIAGS TO RUN, THEN CHECKS THE STATUS THEY 
RETURN. 


ROMLK I 
ERRLFG 
R5 


a a ee” 


HARD CODED P-TABLE 


PROGRAM HEADER AND TABLES - MACYI1 30(1046) 19-AUG=79 20:27 
CZTSIB.P11  19-AUG=79 20:26 TABLE OF CONTENTS SEQ 0033 
3 PROGRAM HEADER 
105 DISPATCH TABLE ~ 
126 DESCRIPTIVE TEXT 
143 DEFAULT HARDWARE P-TABLE 
161 SOFTWARE P=TABLE - 
184 GLOBAL EQUATES SECTION 
473 GLOBAL DATA SECTION. 
616 GLOBAL TEXT SECTION 
632 GLOBAL ERROR REPORT SECTION 
1145 GLOBAL SUBROUTINES SECTION 
2575 LOAD DEV PROTECTION TABLE 
2590 INITIALIZE SECTION - 
2681 AUTO DROP SECTION - 
2764 CLEANUP CODING SECTION 
2791 DROP UNIT SECTION | 
2817 ADD UNIT SECTION 
2849 TEST 1: PDP11/TS11 WRAP TEST. 
3002 TEST 2: PDP11/TS04 WRAP TEST. 
3078 TEST 3: SET 1S04 CHARACTERISTIC VERIFICATION. 
3280 TEST 4: TRACK INACTIVE/ACTIVE TEST. 
3582 TEST 5: P.E. DATA TEST. 
3792 TEST 6: PLE. SKEW TEST 
3949 TEST 7: P.E. DEAD TRACK TEST. 
4117 TEST 8: LOOKUP TABLE TEST 
4192 TEST 9: IN“LINE MICRO DIAGNOSTIC TEST 
4217 TEST 10: INIT MICRO DIAGNOSTIC TEST 
4239 HARDWARE PARAMETER CODING SECTION 
4277 SOFTWARE PARAMETER CODING SECTION 


PARAMETER CODING MACY11 30(1046) 


NLISTF.P11 
1 


15-AUG-79 13:01 


19-AUG-79 20:27 PAGE 1 


ee ee ae ee 


SEQ 0054 


PROGRAM 1” eee AND TABLES 


C71S] 19-AUG-79 20:26 


OWS WRH—$ OO ONO VSWR —OOOnNC VIF wr 


NU RY RQ RO RO RQ a a we os oe 


002000 


002000 


002000 


002042 


002000 


000001 
000025 
034066 
034140 
002204 
002212 
034534 
000000 
000000 
000000 
000000 
002124 
000000 


MACY11 30(1046) 


. 2 
19-AUG-79 20:27 PAGE 6 


~ TITLE PROGRAM HEADER AND TABLES 


~SBTTL PROGRAM HEADER 
~-ENABL /ABS,AMA 
. 2000 


. 79 


; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


LSNAME:: 


LSREV:: 

LSDEPO:: 
LSUNIT:: 
LSTIML:: 
LSHPCP:: 
L$SPCP:: 
LSHPTP:: 
LSSPTP:: 
LSLADP:: 
LSSTA:: 


L$CO:: 


LSDTYP:: 
LSAPT:: 
LSDTP:: 
L$PRIO:: 


POINTER BGNAU,BGNDU,BGNSW,BGNSFT,BGNSETUP 


CZ1S1.B, 0, 25,0 


DIAGNOSTIC NAME 


;REVISION LEVEL 

;0 

;NUMBER OF UNITS 

;LONGEST TEST TIME 
;POINTER TO H.W. QUES. 
;POINTER TO S.W. QUES. 
;PTR. TO DEF. H.W. PTABLE 
;PTR. TG S.W. PTABLE 
;DIAG. END ADDRESS 
;RESERVED FOR APT STATS 


;DIAGNOSTIC TYPE 

; APT EXPANSION 

;PTR. TO DISPATCH TABLE 
;DILAGNOSTIC RUN PRIORITY 


TSPTHYV 
25 
LSHARD 
L$SOFT 
L SHW 
L$SwW 
LSLAST 
0 

0 

0 

0 


LSDISPATCH 


0 


SEQ 0055 


PROGRAM HEADER AND TABLES 


CZ] 19-AUG-79 20:26 


SI1B.P11 


002044 


000000 
000000 


003 
002 


000000 
000000 


000000 
002174 
000000 
000000 
000000 
030112 
030074 
000000 
002150 
104035 
000000 
027316 
030052 
027600 
027310 
060000 
000000 
000000 


LSEF:: 


L$SPC:: 
LSDEVP:: 
LSREPP:: 
LSEXP4:: 
LSEXPS:: 
LSAUT:: 
L$DUT:: 
L$LUN: : 
LSDESP:: 
LSLOAD:: 
LSETP:: 
LSICP:: 
L$CCP:: 
LSACP:: 
LSPRT:: 
LSTEST:: 
LSDLY:: 
LSHIME:: 


K 5 
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PROGRAM HEADER 


LSEXP1:: 
LSEXP2:: 
LSMREV:: 


;EXPANSION WORDS 


;SYC REV AND EDIT @ 


;DIAG. EVENT FLAGS 


; POINTER TO DEVICE TYPE LIST 
;PTR. TO REPORT CODE 


;PTR. TO ADD UNIT CODE 

;PTR. TO DROP UNIT CODE 

; LUN FOR EXERCISERS TO FILL 

; POINTER TO DIAG. DESCRIPTION 
;GENERATE SPECIAL AUTOLOAD EMIT 
;POINTER TO ERRTBL 

;PTR. TO INIT CODE 

;PTR. TO CLEAN-UP CODE 

;PTR. TO AUTO CODE 

;PTR. TO PROTECT TABLE 

; TEST NUMBER 

;PELAY COUNT 

;PTR. TO HIGH MEM 


0 
0 


CSREVISION 


CSEDIT 


L$DvTyYP 
0 

0 

0 

L$AU 
L$DU 

0 
L$DESC 
E$LOAD 
0 
LSINIT 
LSCLEAN 
LS$AUTO 
L$PROT 
0 

0 

0 


Src es AND TABLES 


CZ] 


318 


ee ee ee ee ce ee ee et 8 et et ee we 


AA AO A PS PS PO ND PO NN PO PD NO a OS OOOO OO 
CON AUNE WN $$ © OONAUNFWN S$ OOONGUEFWN—"ODOOnOuW 


— — os 
& ww 
—-Oo 


002122 


002146 


002150 


002164 
002172 


002174 
002174 
002174 


000012 
030130 


034042 


047505 
020114 
020103 

000 
002174 


051524 
0062202 


19-AUG-79 20:26 


052116 
047514 
042524 


030461 


ee. 
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047522 
044507 
052123 


000 


DISPATCH 


~SBTTL DISPATCH TABLE 


2,99 
; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TES!. 
; IT IS USED BY THE SUPERV!SOR 10 DISPATCH TO EACH TEST. 


DISPATCH 10 


TABLE 


LSDISPATCH:: 


~-SBTTL DESCRIPTIVE TEXT 


‘eo 


. WORD 


. WORD 
- WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
WORD 
. WORD 
. WORD 


32 LINES OF TEXT PRINTED TO THE OPERATOR TO IDENTIFY THE DIAG AND THE DEVICE 


L$DESC:: 


DESCRIPT 


DEVTYP 


LSDVTYP:: 


<CONTROL LOGIC TEST> 


<1TS11> 


ASCIZ 


~EVEN 


-ASCI2 
EVEN 


SEQ 00357 


/CONTROL LOGIC IT 


/TS11/ 


PROGRAM HEADER AND TABLES 
CZ1S1B.P11 


at and ad eed 
WA 
Ono w 


— 
ou 
Oo 


002202 
002202 
002204 
002204 


002204 
002206 


002210 
002210 


19-AUG-79 20:26 


000002 


172522 
000224 
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DEFAULT HARDWARE P-TABLE 


~SBTTL DEFAULT HARDWARE P-TABLE 


5 +4 

; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
; 1S IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 


BGNHW ODFPTBL 


~ WORD 
LSHW:: 
DFPTBL:: 
172522 -TSSR ADDRESS 
224 ;VECTOR ADDRESS 
ENDHW 
L10000: 


SEQ 0058 


L10000-L $HW/2 


nin : 
PROG) 48 HEADER AND TABLES MACY11 30(1046) Ne ye 20:27 PAGE 10 


CZ1$i5.P11 19-AUG-79 20:26 SOFTWARE P-TABL SEQ 0039 
161 -SBTTL SOFTWARE P-TABLE 
162 
163 ;+4 
164 ; THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
oe ; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 
66 = 
167 
168 
169 002210 BGNSW SFPTBL 
170 002210 000001 -WORD 1£10001-L$SW/2 
171 002212 L$Sw:: 
te 002212 SFPTBL:: 
174 002212 000 CMPFLG:: .BYTE 0 ;ENABLE DATA COMPARE ERROR PRINT FLAG 
175 ;0=DO NOT ENABLE IS DEFAULT 
fs 002213 000 BYTE O ;SPARE FLAG 
178 002214 ENDSW 
179 002214 L10001: 
180 
181 002214 ENDMOD 


PROGRAM HEADER 
CZ1SIB.P11 


182 
5 


ar 


002214 


002214 


0OO0OCO0OOO@OOowom 


ee ee ee ee ee Ur 
WN OO OOneo 


MIPMIMOPMY PU PY PE Pe nofo 
TA mee at at ot ot 
OOOnNOWS WN — 


221 


AND TABLES 
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100000 


000001 
001000 


000001 


000040 


000037 


000034 


000340 
000300 
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OFTWARE P-TABLE 


~TITLE GLOBAL AREAS 
~SBTTL GLOBAL EQUATES SECTION 


+4 


: THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
" ARE USED IN MORE THAN ONE TEST. 


EQUALS 
; BIT DIFINITIONS 
B17T15== 100000 
B1T14== 40000 
B1T13== 20000 
B1T12== 10000 
B1T11== 4000 
BIT10== 2000 
B1T09== 1000 
BIT08== 400 
B1T07== 200 
B1T06== 100 
BITO5== 40 
BIT04== 20 
B1T03== 10 
BITO2== 4 
BITO1== 2 
BITOO== 1 
BIT9== B1T09 
BIT8== B1T08 
B1T7== B1107 
BITo== B1106 
BIT5== B1T05 
BIT4== BIT04 
BIT3== B1T03 
BIT2== B1102 
BlTl== 81101 
B1T0== 81100 
; EVENT FLAG DEFINITIONS 
s BF S23EF 1 
EF .START== ae 
EF .RESTART== aye 
EF.CONTINUE== 30. 
Ef .NEW== 29. 
EF .PWR== 28. 
; PRIORITY LEVEL DEFINITIONS 
PRIO7== 540 
PR106== 500 


BGNMOD 


E 
7 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


START COMMAND WAS ISSUED 
RESTART COMMAND WAS ISSUED 
CONTINUE COMMAND WAS ISSUED 

A NEW PASS HAS BEEN STARTED 

A POWER-FAIL /POWER-UP OCCURRED 


SEQ 0040 


GLOBAL AREAS 
CZ1S1B.P11 


MACY11 30(1 


19-AUG-79 20:2 


000240 


000000 


000004 


940000 
100000 


001000 


000001 


000005 
000200 
000000 
000035 


046) 
6 
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GLOBAL EQUATES SECTION SEQ 0041 
PR105== 240 
PR104== 200 
PR1I03== 140 
PRIO2== 100 
PRIO1== 40 
PR100-= 0 
;OPERATOR FLAG BITS 
EVL== 4 
LOT== 10 
ADR== 20 
1DuU== 40 
]SR== 100 
UAM== 200 
BOE == 400 
PNT== 1000 
PR]== 2000 
]XE== 4000 
IBE== 10000 
JER== 20000 
LOE== 40000 
HOE == 100000 
-BIT DEFINITIONS USED TO SPECIFY THE ROM ADDRESS LINES IN THE ROMLOK 
; SUBROUTINE 
A9== 1000 
A8== 400 
A7<e 200 
A6== 100 
AS== 40 
A&== 20 
A3== 10 
A2== 4 

Al=-== 2 

AQ== 1 


seeneereerererereeerrerererecensesereneraenereenenanereneaeererenenersereneesener?e 


*@eeeraeeeeaeereereeteeteeeaeeekreterteteeneeteeraeeteneeteeketeeteeneeteetetneeeteeeteeeeterretere 


THE FOLLOWING DEFINITIONS MAY CHANGE ON MICRO-CODE REASSEMBLY: 


WRPLO==5 *WRITE WRAP TASK ADR LQ. 

WRPH] ==200 WRITE WRAP TASK ADR HI. 

POP JH] ==-0 :;1804 POPJY ADDRESS HI] (RTS) 
:1804 POPJ ADDRESS LO (RTS) 


POPJLO==33 


° 
secececececeroeseoeceeresseeresseseseeesnesessereeeeaeaesseseseseneeereseerelTs 
seeereseoreceoretoaeeeeosererereseseteseeeeseeeresseasereseeneeenereeseneserTeS 


Com 





GLOBAL AREAS 
CZTS1B.P11 


LANAI AAA 
et et et eet mt ek ah 
ODOn~NoOUWS Wh — 


LA AA 
DE \AWAAA a 
OONO UE Ww 


Nw 
—=© 
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001000 


002000 


020000 
177717 
177701 


100000 
040000 


000001 


000200 
000040 
000020 


000200 


000001 


000340 


140004 
100017 
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GLOBAL EQUATES SECTION SEQ 0042 
; TSSR REGISIER BIT DEFINITIONS. 

TS.XA1==1000 ;EXTENDED ADDRESS BIT | 

TS. XA0==400 ;EXTENDED ADDRESS BIT 0 

TS.SSR==200 : SUBSYSTEM READY BIT. 

TS.NBA==2000 


+ NEED BUFFER ADRESS-CLEARED BY SET CHAR 

-SET BY COMD WITHOUT SET CHAR 
TS.SPE==20000 SERIAL BUS PARITY ERROR AT TS11 
FCMASK==177717 


TCFCMK==177701 
;THE FOLLOWING ARE BIT DEFINITIONS FOR THE COMMAND WORD 


>FATAL CLASS CODE MASK 
: TERMINATION AND FATAL CLASSES CODE MASK 

ACK .C==100000 : ACKNOWLEDGE BIT 
CvC.C==40000 ;CLEAR VOLUME CHECK. 
OPP .C==20000 ;OPPOSITE BIT 
SWB.C==10000 :SWAP BYTE BIT 
MOD .C3==4000 ;MODE BIT 3 
MOD .C2==2000 :MODE BIT 2 
MOD.C1==1000 ;MODE BIT 1 
MOD .C0==400 ;MODE BIT 0 

1E.C==200 : INTERRUPT ENABLE 
FMT.C1==100 - FORMAT BIT 1 
FMT.COQ==40 - FORMAT BIT OQ. 
CMD.C4==20 : COMMAND BIT 4 
CMD.C3==10 :COMMAND BIT 3 
CMD.C2==4 :COMMAND BIT 2 
CMD.C1==2 -COMMAND BIT 1 
CMD.CO==1 :COMMAND BIT O 
; BIT DEFINITIONS FOR DEVICE CHARACTERISTICS. 
CH.ESS==200 
CH.EA]==40 
CH.ER] ==20 
>ROM LOOKUP TABLE BIT DEFINITIONS 

.MULT==200 >MULT TRACKS 

.RDFMK==100 -READ FICE MARK PATTERN 
.PREAM==40 : PREAMBLE 

. 90F 9==20 -9 OF 9 TRACKS 

OOF 9==10 :NONE OF 9 TRACKS 

CORD==4 > CORRECTABLE DATA 

. INCOR==2 : INCORRECTABLE DATA 

. 80F 9==1 :8 OF 9 TRACKS 

: MISCELLANEOUS DEFINITIONS. 

INTPR]==PRI107 >PRIORITY TC BE USED IN THE INTERRUPT STATE. 
SCHEXT==10 >BUFFER LENGTH. (EVEN @) 
MSGEXT==1 ;MESSAGE BUFFER apis i BYTES. (EVEN @) 
DIAEXT==20 >DIABLK EXTENT IN OCTA 
DIA==ACK.C!CMD.C2'CMD.C1 -DIA CMD WORD. 
SCH==ACK.C'CVC.C!CMD. (2 >SCH (SET CHAR) CMD WORD. 
GES==ACK.C!CMD. CO'CMD.C1!CMD.C2! CMD .C3 :GET STATUS COMMAND 


GLOBAL AREAS 


CZ1S1B.P11 


MACY11 3041046) 
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020000 


177777 


000004 


000040 


000000 
000002 
000004 
000006 


me ee ae e—™ 
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GLOBAL EQUATES SECTION SEQ 0045 
BPE==20000 ;XSTAT2, SERIAL BUS PARITY ERROR AT T1S04 

$1P==40000 :XSTAT2, SILO PARITY ERROR 

MOT==200 ;XSTATO, TAPE MOVING 


ENDTBL==177777 ;END OF A TABLE FLAG 


>THE FOLLOWING INDICATES THE RELATIVE POSITIONS OF THE STATUS WORDS 
;1N THE MESSAGE BUFFER. 


MSSRFC==4 ;RESIDUAL FRAME COUNT. 

MS$XS0==6 ;EXT STATUS REG 0 

MS$XS1==10 ;EXT STATUS REG 1 

MS$XS2==12 ;EXT STATUS REG 2 

MS$XS35==14 ;EXT STATUS REG 3 

C18$0R==4 : INDEX FOR OUTPUT READY INFO (CHAN 1-8). 
C18$1D==5 ; INDEX FOR 1 OR DEAD INFO (CHAN 1-8) 
C18$TA==7 > INDEX FOR TRACK ACTIVE INFO. (CHAN 1-8) 
C18$DA==10 ; INDEX FOR DATA INFO. (CHAN 1-8) 
C18$TD==11 ; INDEX FOR TRACK DEAD INFO. (CHAN 1-8) 
C18$0D==12 ; INDEX FOR 0 OR DEAD INFO. (CHAN 1-8) 
ROMSLK==15 ; INDEX FOR LOOKUP TABLE 

PRCHST==14 ;STATUS OF THE PARITY CHANNEL (CHANNEL 9) 
CH9.OR==1 ;B1T POSITION FOR OUTPUT RDY FOR CHAN 9 
CH9.1D==2 :BIT POS FOR 1 OR DEAD INFO FOR CHAN 9. 
CH9.TA==4 ;B17 POSITION OF THE TRACK ACTIVE INFO CHAN 9. 
CH9.DA==10 ;BI1T POS OF DATA INFO FOR _HAN 9. 
CH9.TD==20 ;BIT POS OF TRK DEAD INFO FOR CHAN 9. 
CH9.0D==40 ;B1T POS OF 0 OR DEAD INFO FOR CHAN 9. 


;THE FOLLOWING DEFINITIONS SHOW THE RELATIVE POSITIONS OF THE COMMAND 
;PACKET ENTRIES. 


CP$CMD==0 ; CMDPKT+0==1TS04 COMMAND. 

CPS$ADL==2 ;CMDPKT+2==BUFFER ADDRESS LOW. 
CPS$ADH==4 ;CMDPKT+4==BUFFER ADDRESS HIGH. 
CP$CNT==6 ; CMDPKT+6==BYTE/FILE/RECORD COUNT. 


De eee 


GLOBAL AREAS 
CZ1S1B.P11 
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000004 


000200 


000100 


000010 
000004 
000002 
000001 


000020 


000200 
000100 


000040 


000020 


000007 
000006 
000005 
000004 
000003 
000002 
000001 
000000 
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GLOBAL EQUATES SECTION 


F 4 as 


PAGE 15 


; THE FOLLOWING ARE REGISTER AND BIT DEFINITIONS FOR THE TS04 


REGISTERS 


OF INTEREST IN THIS DIAGNOSTIC. 


;eereeerererererererererererererertereneeeeeeeeeteeeeeeeee eee 


;FMCTLO A rtd as MAJOR STATE CONTROL REG 


FC 


CTLO== 
WRITE REGISTER 4 


;THIS REGISTER IS SET UP FOR THE PORTION OF THE 
;RECORD WE ARE PRESENTLY READING 


-RD== 200 ;WE ARE DOING NORMAL READ. IF 0, WE DISABLE SOME ERROR 
;CORRECTION LOG!C SO WE'RE MORE DISCRIMINATING 
;FOR READ AFTER WRITE. 

C.FLO==100 ;SETING THIS BIT CAUSES .FMFLO ON BBUS TO BE TRUE 
; (NEEDED-BY THE RD PE ROUTINE) 

DAT==10 ;DATA MODE 

~-PRE==4 ;PREAMBLE MODE 

.VCO==2 ;VCO SYNC MODE 

.NR2== ;NRZ1 MODE (FORCE SKEW WINDOW TO STAY OPEN) 


;CAUSES FMTAUI TO BE CLRED WHEN YOU WRITE 
;10 THE FMCLDO REGISTER. 


saeeeenererererereeeeeeeeretrereeeeeereeeeeeeeeeeeKeaeeeAeeeeese 


;RDCTLO : READ CONTROL REGISTER 
D 


CTLO==20 
;WRITE REGISTER 20 


;THIS REGISTER CONTROLS THE FORMATTER MODE AND THRESHOLD. 


RD 
RD 


RD. 


-REV==200 
»-MA1==100 


RD. 


ON Lownwo— 
NSMROOOWOWO— 


:1 FOR REV MOTION, O==FWD 
;1/0 FORMATTER DATA WRAPAROUND 


;WE ARE SPACING RECORDS. (THIS BIT 1S UNUSED IN 
; THE HARDWARE BUT IS A SOFTWARE FLAG IN THE READ CODE) 


;WE ARE SKIPPING FILES. (THIS B1T IS UNUSED IN 
>THE HARDWARE BUT IS A SOFTWAFE FLAG IN THE READ CODE) 


>THE FOLLOWING THRESHOLDS ARE AVAILABLE: 

sNORM USE DIAG USE 

: H] PREAMP GAIN 
: LO PREAMP, BAD TAPE CLEAN 
; RESIDUAL ERASE CHK 
; FWD/REV AMP BALANCE 
:NRZ WRT 
:NRZ RD, PE WRT 
-PE READ, NRZ ERR RECOV RD/WRT CROSSTALK 
>PE ERR RECCOV ERASE FUNCTION 

>DATA PORTION ONLY 


SPC==40 


nununnkhkunkaneo 
—~J 


CD —NIWWw Wwe tl 


SEQ 0044 


GLOBAL AREAS 
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000014 


000200 


000100 


000040 


000020 


000010 
000004 


ee - 0 ——— -eewee - — - e e  C- + —— - - ~] 
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;eeeeeerererereerrererererererterereeeteereeeeeereeeeeee eee eee 


;10SCO = 1/0 SEQUENCER SILO CONTROL BUFFER OuT 
1OSCO==14 
;WRITE REGISTER 14 


;THIS REGISTER CONTAINS THE SILO CONTROL BITS FOR DATA WRITTEN 

;BY THE MAIN OR 1/0 MICRO TO THE SILO. THE DATA IN THIS REG 

;1S PAIRED WITH THE IOSDO REG AND PUT IN THE SILO WHENEVER 

;THE IOSICO REG IS CLOCKED. THIS REGISTER NEED ONLY BE WRITTEN 

;ONCE IF THE SAME OLD DATA IS OK TO BE WRITTEN IN THE SILO. 
;NOTE THAT IF THE 1/0 IS WRITING THE SILO, THE MAIN MUST PUT EVEN 
;PARITY IN THE BITS 557 OR THE I/O WILL WRITE PAR ERRS IN THE SILO. 
;(THE IS.DAP BIT 1S DON’T CARE HERE FOR 1/0 WRITING THE SILO) 


1S .PAR== 200 ;OLD PAR BIT FOR ALL 16 BITS (CNRTL AND DATA) 
;NOTE THAT THE BITS MASKED BY 357 MUST BE 
;EVEN PARITY BECAUSE THE 9 DATA BITS ARE ODD 


IS.1VP== 190 ; INVERT CNTRL SILO PAR BIT BEFORE MOVING 
,10 WRITE BOARD (WRITE EVEN PARITY ON TAPE) 


IS.NRZ== 40 ; INVERT WRITE BUFFER BIT IF ASSOCIATED SILO 
;DAIA BIT IS A 1. (CIF IS.NRZ==0, WE'RE IN PE MODE) 
1S .DAP== 20 ;ODD PARITY FOR THE 8 DATA BITS IN I10SDO 
IS.LRC== 10 ;CAUSES SYNCRONOUS CLR ON WRT BOARD TO WRITE THE LRC CHA 
1S .WRF == . ;THIS FLG BIT SHOWS UP AT THE WRITE BOARD 


sWITH THE CORRESPONDING DATA. THE FUNCTION OF 

;THE BIT WILL BE DEFINED BY THE WRITE BOARD. 

;NOTE HOWEVER THAT IF THE WRITE BOARD SEES 

;THE BIT 1, THE PA.WRF BIT IN THE . 

;PRATNI REG WILL ALSO BE 1 (IF ENABLED 

;1G AFFECT THE ATIN REG). 
;THE 2 LOW BITS ARE WRITABLE AND AFFECT THE PARITY TREES Bul 
;OTHERWISE ARE UNIMPLEMENTED 


seeeceeeeeerereereerereresseteresereesesanetaenenenetenenenenes 


ee ee 


wr ee ee ee ee se 
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CZ1S1B.P11 19-AUG-79 20:26 GLOBAL DATA SECTION SEQ 0046 
met -SBTTL GLOBAL DATA SECTION 
475 :4+4 
476 ; THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE UScCD 
477 > IN MORE THAN ONE TEST. 
478 :<-- 
479 
ty ; TSO4 REGISTER ADDRESSES. 
482 002214 000000 TSDB:: O -1S804 DATA BUFFER ADDRESS. 
483 002216 000000 TSDBHI]:: 0 -TSDB HI] BYTE ADDRESS. 
484 002220 0900000 TSBA:: 0 -1804 BUFFER ADDRESS REG ADDRESS. 
485 002222 000000 TSBAH]:: 0 :TSBA H] BYTE ADDRESS. 
486 002224 0006000 TSSR:: O :1804 STATUS REGISTER ADDRESS. 
= 002226 000000 TSVCT:: 0 -1S$04 VECTOR ADDRESS. 
489 . THE FOLLOWING IS THE TSO4 COMMAND PACKET. 
af : (MUST BE ON A MODULO 4 BOUNDARY) 
= 002230 =.+38177774 -FORCES CMD PKT ON MODULO 4 BOUNDARY. 
494 002230 000000 CMDPKT: :0 1ST WORD:: 1S04 COMMAND 
495 002232 000000 0 :2ND WORD:: BUFFER LOW ADDR. 
496 002234 000000 0 : 3h) WORD:: BUFFER HIGH ADDR. 
~ 002236 000000 0 :4TH WORD:: BYTE/RECORD/FILE COUNT. 
499 >SET CHAR PACKET 
500 
od 002240 =,+38177774 
-503 002240 140004 SCHPKT::SCH ;SET CHAR COMD HEADER 
$04 002242 002276 SCHBLK :SET CHAR BLK AD LO 
505 002244 000000 000000 >SET CHAR BLK AD HI 
208 002246 000010 SCHEXT :BPCR=LENGTH OF SCHAR BLOCK 
508 >DIAG PACKET 
509 
Hy 002250 =,+38177774 
512 002250 100006 DIAPKT::DIA :DIAG COMD HEADER 
$13 002252 002316 D1 ABLK :DIAG BLOCK AD LO 
$14 002254 000000 000000 ;DIAG BLOCK AD HI] 
+h 002256 000020 DIAEXT :BPCR=DIABLK LENGTH 
6 
Hh ° THIS IS THE MESSAGE PACKET. 
$19 002260 000000 MSGPKT:: 0 :1ST WORD:: MESSAGE WORD. 
520 002262 000000 MSGDFL:: 0 :2ND WORD:: DATA FIELD LENGTH 
$21 002264 000000 RFC:: O -3RD WORD:: RESIDUAL FRAME COUNT. 
$22 002266 O00uv00 XSTATO:: 0 -4TH WORD:: EXTENDED STATUS REG 0 
$23 002270 000000 XSTAT1:: 0 :>5TH WORD:: EXTENDED STATUS REG 1. 
$24 002272 000000 XSTAT2 0 6TH WORD: : EXTENDED STATUS REG e. 
525 002274 000000 XSTAT3:: 0 -71H WORD: EXTENDED STATUS REG 3 
$5 002276 MSGEND== . ‘ASI MSG PKT POINTER 


THE SET CHARACTERISTIC BLOCK. 


GLOBAL 
CZ1S1B8 


AREAS 
Pil 


002276 
002500 
002502 
002504 


002306 


002514 


002316 


002335 
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002260 
000000 
000016 
000000 


014570 
014400 
014410 
014420 
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SCHBLK:: 


TSGINT:: 


DIABLK:: 


MSGPKT :1ST WORD:: MSGPKT ADDR LO. 
0 :2ND WORD MSGPKT ADDR HI. 
MSGEXT : 35RD WORD:: MSG BUFFER LENGTH(BYTES). 
0 :41TH WORD:: CHARACTERISTIC WORD. 
ADDRESSES OF INTERRUPT HANDLING ROUTINES. 

TS4INO ;DEVICE OQ. 

TS4INI sDEVICE 1. 

TSGIN2 :DEVICE 2. 

TS4INS ;DEVICE 3. 


THE DIAGNOSTIC CUMMAND BUFFER. WHEN A DIAG COMMAND IS 

EXECUTED, THE TSO4 PLACES THE CONTENTS OF THIS BUFFER ONTO THE 1S04 
STACK IN REVERSE ORDER, THEN EXECUTES WHAT IS ON THE STACK BY 
PERFORMING A COMMAND SIMILAR TO AN RIS. 

THE BUFFER IS INITIALLY LOADED WITH THE TSO04 CODE FOR 

AN RTS COMMAND. 


-BYTE POPJHI 
BYTE POPJLO 
BYTE POPJHI 
-BYTE POPJLO 
-BYTE POP JH] 
BYTE POPJLO 
BYTE POP JH] 
-BYTE POPJLO 
.BYTE POP JH] 
.BYTE POPJLO 
BYTE POP JH] 
-BYTE POPJLO 
BYTE POP JH] 
BYTE POPJLO 
BYTE POPJHI 
BYTE POPJLO 


SEQ 0047 


ee 


GLOBAL 
CZ1S1B 


AREAS 
P11 


0025356 


002552 
002554 


002370 
002372 


002402 
002404 


002406 
002410 
002412 
002414 
002416 


002420 


002434 


002436 
002457 
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000000 


000000 


000000 


000000 


000000 
000000 
000000 
000000 
000006 
000000 


000000 
000000 
000000 
000000 
000000 


000000 


000000 


000 
000 


EXPTBL:: 
EXORDY:: 
EXIDTR:: 
EXTRAC:: 
EXDATA:: 
EXTRDD:: 
EXODTR:: 
EXROML:: 


ACTTBL:: 
ACORDY:: 
ACIDTR:: 
ACTRAC:: 
ACDATA:: 
ACTRDD:: 
ACODTR:: 
ACROML:: 


ORDTBL:: 
ORORDY:: 
ORIDTR:: 
ORTRAC:: 
ORDATA:: 
ORTRDD:: 
CRODTR:: 


ACTRK1:: 
ACTRK2:: 
ACTRK3S:: 
ACTRK4:: 
DIKIDN:: 


ROMLKI : : 


ERRFLG:: 
CTLFLG:: 


ooo°o°oo 
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; TABLES OF FORMATTER AND WRI°E CONTROL REG ACTUAL & EXPECTED 


aQooo0o°eo 


ooo°oe°o°co 


oO Oo Oooo OOCOCOOCoOooO 


PROGRAM CONTROL FLAGS. 


.BYTE 
BYTE 
EVEN 


; TABLE 
:EXPECTED OUTPUT READY INFO 
sEXPECTED 1 OR DEAD TRACK INFO 
sEXPECTED TRACK ACTIVE INFO 
sEXPECTED DATA INFO 

sEXPECTED TRACK DEAD INFO 
sEXPECTED 0 OR DEAD TRACK INFO. 
sEXPECTED ROM LOOKUP TABLE INFO. 


: TABLE 2 ACTUAL REGS 
s ACTUAL 
; ACTUAL 
; ACTUAL 
; ACTUAL 
s ACTUAL 
> ACTUAL 
> ACTUAL 


-TABLE 3 SUBTESTS" ORED ACTUAL REGS 
sOUTPUT 
;1 OR DEAD TRACK 
> TRACK ACTIVE 
sDATA 
> TRACK DEAD 

;0 OR DEAD TRACK 


s ACTUAL 
>; ACTUAL 
s ACTUAL 
> ACTUAL 


EXPECTED REGS 


OUTPUT READY INFO 

1°S OR DEAD TRACK INFO 
TRACK ACTIVE INFO 

DATA INFO 

TRACK DEAD INFO 

0 OR DEAD TRACK INFO 
ROM LOOKUP TABLE INFO 


READY 


TRACK ACTIVE TEST 4,SUB | 
TRACK ACTIVE TEST 4,SUB 2 
TRACK ACTIVE TEST 4,SUB 3 
TRACK ACTIVE TEST 4,SUB 4 


;DEAD TRACK IDENTIFICATION REG. (BITS 0 THRU 8) 


; 1=DEAD; 


O=LIVE. 


:ROM LOOKUP TABLE ADDRESS 


“CURRENT UNIT # FOR PRINTS. 

:1804 MICRO-CODE LEVEL - STORED IN SCH TEST. 
; TIMEOUT COUNTER. 

;GENERAL PURPOSE LOCATION QO. 

;GENERAL PURPOSE LOCATION 1. 

;GENERAL PURPOSE LOCATION 2. 


;0 = NO ERROR 
;ALL PURPOSE PROGRAM CONTROL FLAG 


SEQ 0048 


GLOBAL AREAS 
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626 


002440 
002500 
002566 
002625 


003561 
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051524 
047505 
051524 

24 


032117 
046515 


041511 
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041440 


047522 


GLOBAL TEXT SECTION 


SEQ 0049 


~SBTTL GLOBAL TEXT SECTION 


;THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
sRESSAGES. AND ASCII INFORMATION THAT ARE USED IN MORE THAN 


;ONE T 


MICROE:: 


YS 
wm 
oO 
—s 
Pee ose ey me ey es sO bt 8 ot My 
™m ~ Pm Pw ™~m Ph 


~a CUP 


ASCI1 MESSAGES USED IN ERROR REPORT HEADERS. 


BEX 
/1S04 CONTROL LOGIC TEST PROGRAM/ 
/COMMAND PACKET ADDR NOT ON MODULO 4 BOUNDARY: RELOAD! / 
/TS04 NOT READY =- SSR NOT SET/ 
/1S04 DID NOT DROP READY ON COMD ISSUANCE-SSR NOT 0/ 
/PDP11 = TS11 WRAP FAILURE/ 
/PDP11 = TS11 WRAP FAIL ON TSSR EXT ADDR BITS/ 
/PDP11 = TSO4 WRAP FAILURE/ 
/SET CHARACTERISTIC ERROR/ 
/TRACK ACTIVE NOT 0 FOR 1 OR MORE TRACKS/ 
/TRACK ACTIVE NOT 1 FOR 1 OR MORE TRACKS/ 
/TRACK ACTIVE ERROR/ 
/P.E. DATA WRAP ERROR/ 
/P.E. SKEW ERROR/ 
/P.E. DEAD TRACK ERROR/ 
/DATA OR SKEW OR DEAD TRK ERR/ 
/ROM LOOKUP TABLE ERROR/ 
/IMPROPER TERMINATION = SPECIAL CONDITION BIT SET/ 
/NO INTERRUPT/ 
/INTERRUPT OCCURRED WHEN DISABLED/ 
oF tem DIAGNOSTIC ERROR TSSR:FC=0,7C=7/ 
x 
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650 
631 


003630 


004776 
005037 


005763 
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040445 
045 
051445 
045 
040445 
045 
045 
040445 
045 
040445 
045 
040445 
045 
051445 
045 
040445 
040445 
040445 
045 
040445 
045 
040445 
045 
040445 
040445 
040445 
045 


005774 


042523 


030501 
034465 


041101 


034115 
047501 


: 
4 
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020105 


040445 
042101 


033071 
020515 


GLOBAL TEXT SECTION 
;ASCI1 BASIC MESSAGES USED IN ERROR REPORTS 


TERMI6:: . 
TERM17:: 


TSIIBD:: . 
FMTCTR:: 


FMTCH6:: . 
FMTCHS:: . 
FMTCH4:: 
RDCH2:: 
RDCHI:: . 
RDCHPS:: . 


JOBRD:: 
CRMSG:: 


OO te Oe 


SEQ 0050 


BEX 

/ZASEE OP PANELZN/ 

/ZA1F UOK LIT THEN BAD TS11 BOARDZN/ 

/ZS2%AELSE OP PANEL=MICRO 10 ERROR CODE 100-110%N/ 

/ZACODE LOOPZSIOZADESCRIPT 1ONZS9ZAMODULE (SLOT) 2N2/ 

/%ZA100 14 10 MICRO SSTEP,IOATN,...%S5%2AM8967(12) .M8965(11)2N/ 


/%A101 15 IOCNO REG TEST2S152%AM8967(12)2N/ 

/ZA102 15 FRAME CNTR TESTZS142AM8966(14)2N/ 

/%ZA103 16 SILO GOOD PAR DATA = WRT FLG%S1%AM8966(14) ,M8965(11)2N/ 
/%ZA104 17 SILO BAD PAR = DATA LATE%S5%AM8966(14)2N/ 

/%ZA105 20 10 LOOP-0'S2%S18%AM8965 (15) 2N/ 

/%ZA106 21 10 LOOP=1'S%S18%AM8965 (15) 2N/ 

/%A107 cs 10 LOOP-SHIFT LENGTH MUX2S52%AM8965 (15) 2N/ 


/%A110 47 SERIAL BUS = TS11 ALIVE%S6%AM8965(15) ,TS112N/ 
/ZESS9ZAMOTHER BOARD, SBUS CABLE&N/ 


/ZABAD 1TS11 BOARDZN/ 

/ZABAD FORMATTER CONTROL BOARD M8922 SLOT 72N/ 
/%ACHECK VCO ADJUST ON M89222N/ 

/%ZABAD FORMATTER CHANNEL BOARD M8924 SLOT 62%N/ 
/%ZABAD FORMATTER CHANNEL BOARD M8924 SLOT 52N/ 
/%ABAD FORMATTER CHANNEL BOARD M8924 SLOT 42N/ 
/%ZABAD READ CHANNEL BOARD G157 SLOT 2%N/ 
/%ZABAD READ CHANNEL BOARD G157 SLOT 12%N/ 
/%ABAD READ CHANNEL BOARD M8923 SLOT 5%N/ 
/ZACHECK SKEW AND THRESHOLD ADJUSTS ON M89252%N/ 
/ZAERROR IN 10 BOARDS(SLOT) OR SBUS CABLE%ZN/ 
/%AM8965(15) ,M8966(14) ,M8967(12)2N2/ 
4 ee pase 

EX 
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632 ~SBTTL GLOBAL ERROR REPORT SECTION 


634 ; +4 

635 : THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX CALLS 

636 : THAT ARE USED IN MORE THAN ONE TEST. IT ALSO INCLUDES THE ASCII MESSAGES 
eH : THAT ARE USED BY THE PRINTB AND PRINTX CALLS.. 


30 
¢ SEQ 0051 


642 ;LONG MESSAGE PRINT SUBR 

645 ;ENTER WITH R1=AD OF MSG AD TABLE 

644 ;MSG AD TABLE CONTAINS AD OF MSGS TO PRINT, ONE .WORD AD 
645 ;PER MSG. THE TABLE MUST END WITH .WORD ENDTBL=177777 
646 ;AS END OF TABLE FLAG 


648 005774 BGNMSG LONMSG 
LONMSG:: 
WHILE (R1) NE #177777 DO 


50000$: 

652 005774 021127 177777 CMP 
653 006000 001415 BEQ 
LET MSGADR := (R1) 

655 006002 011137 006040 , MOV 
656 006006 PRINTB MSGADR 

657 006006 013746 006040 MOV 
658 006012 012746 000001 MOV 
659 006016 010600 MOV SP ,RO 


(RI) #177777 
50001$ 

‘R1) ,MSGADR 

MSGADR ,- (SP) 


660 006020 104414 TRAP —- C$PNTB 


006076 


062706 
062701 
000760 
000167 


000002 
000000 


104423 


oooo OoO-OoO°Oo 
coo-—-——— 
MmMOWWw NMOL Only 
, ~~ —s 
© 
oO 


—B eee eed od 


000004 
000002 


005037 
000001 
000004 


002422 
002432 


006122 


MSGADR: 
L10002: 


WRAPR1: 


LET RI 


ENDDO 


EXIT 


. WORD 
ENDMSG 
BG! ASG 


PRINTB 


PRINTX 


>= R1 + #2 


MSG 


WRAPR1 


#TS11BD 


WEEMIA,RS,TEMP1 UNIT 


50001$: 


TRAP 


#4 ,SP 
#2,R1 
50000$ 


JSJMP 


L10002-2-. 


C$MSG 


#1S11BD,-(SP) 
#1,-(SP) 


C$PNIB 
#4,SP 


UNIT, -(SP) 
TEMP 1 ,=(SP) 
R35,-(SP) 
MEEMIA,=(SP) 





GLOBAL 
CZ1S1B 


711 


SN NNN NS SUNG 
TAD NS ee eet eet et oe ot os 
—O OO~nOUPWY 


AREAS 
P11 


006102 
006106 


006122 
006150 


006216 
006216 
006216 


006220 


006274 
006276 
006325 


006370 
006370 
006570 


006372 


006416 


MACY11 30(1046) 
19-AUG-79 20:26 


012746 


000167 
000074 


040445 
040445 


104425 


— ss et 
) 
y 
P 
o 


000167 
000072 


040445 
045 


104425 


000004 


000012 


005646 
000001 
000004 


002422 
002432 


006276 
000004 


000012 


005646 
000001 
000004 


002422 
002454 


N 
25 
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EXIT MSG 


~NLIST BEX 


040502 EEMIA: .ASCII] /%ATSBA EXPECTED=%B162N/ 
040502 ~ASCIZ ta ACTUAL=%S2%B16%S 52AUNIT : 2D 1%N2/ 


LIST 

EVEN 

ENDMSG 
L10003: 


BGNMSG WRAPR2 
WRAPR2:: 
PRINTB #10BRD 


PRINTX #EEM2A,R4,TEMP1,UNIT 


EXIT MSG 


~NLIST 


BEX 
040502 EEM2A: .ASCII /%ATSBA EXPECTED=%B8%N/ 
041125 ~ASCIZ _ ACTUAL =%S2%B8%S 52AUNI T : %D12N2/ 


LIST 

EVEN 

ENDMSG 
L10004: 


BGNMSG WRAPR3 
WRAPRS:: 
PRINTB #I1OBRD 


PRINTX MEEM3SA,R4,TEMP2,UNIT 


TRAP 


TRAP 


SEQ 0052 
#4,-(SP) 
SP,RO 
CSPNTX 
#12,SP 


JSJMP 
L10003-2-. 


C$MSG 


#10BRD,-(SP) 


TEMP1,-(SP) 


JSJMP 
L10004-2-. 


C$MSG 


#1OBRD,-(SP) 
#1 ,-(SP) 
SP RO 


C$PNIB 
#4 ,SP 


UNIT, =(SP) 
TEMP? ,=<SP) 
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746 006446 
006450 
006475 


749 006542 
750 006542 
751 006542 


753 006544 


771 006616 
772 006620 


006622 
006647 


775 006714 
776 =006714 
777 =—006714 


779 006716 


787 006736 


a 
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010446 


062706 


000167 
000072 


040445 
045 


104425 


000167 
000072 


040445 
045 


104423 


006450 
000004 


000012 


005037 
000001 
000004 


002422 
002434 


006622 
000004 


000012 


002422 
007016 
000002 


000006 
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24 
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L10005: 


WRAPR4G: : 


L10006: 


TAEM: : 


EXIT 


~NLIST 
ASCII 
~ASCIZ 
~LIST 
EVEN 
ENDMSG 


BGNMSG 
PRINTB 


PRINTX 


BGNMSG 
PRINTX 


MSG 


BEX 
/ZATSSR EXPECTED=%B82N/ 
/ZATSSR ACTUAL=%S22B82%S 32AUNIT = 2D12N2/ 


BEX 


WRAPR4 
#1S11BD 


WEEMGA,R2,TEMP2,UNIT 


MSG 


BEX 


/RATSSR EXPECTED=%B82N/ 
/ZATSSR ACTUAL=%S2%B8%S 52AUNI T 2D 1%N2/ 


BEX 


TAEM 
#TAEMA,UNIT 





TRAP 


TRAP 


SEQ 0053 


R4,-(SP) 


#12,SP 


JSIMP 
L10005-2-. 


C$MSG 


#17S11BD,-(SP) 
#1,-(SP) 
SP,RO 

CSPNIB 

#4 ,SP 


UNIT, -(SP) 
TEMP2 ,-(SP) 
R2,-(SP) 
WEEMGA,-(SP) 
#4 ,-(SP) 
CSPNTX 
#12,SP 


JSJMP 
L10006-2-. 


C$MSG 


UNIT, -(SP) 
#TAEMA,-(SP) 
#2,-(SP) 

SP RO 

CSPNIX 

#6,SP 


GLOBAL 
CZ1S1B 


Od Od 09 Op Od OD OD CO CO CD CD CD 
ee 
Mm—OOONA WF wr 


mr 
Wa 


AREAS 
-P11 


006742 


007014 


007016 
007067 
007123 


007174 
007174 
007174 


007176 
007176 


007312 
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MMW an De secon ted 
_ 
Ww 


ooooeo o-9o0°0° 
+ Coo 


© 
Co 
oO 
© 


000167 
000156 


040445 
045 
045 

007174 


104423 


002342 
007067 
000002 
000006 
002360 


007123 
000002 


000006 


051124 
952101 
052101 


002422 
007406 
000002 
000006 
007461 
000001 
000004 
002356 


000005 


000014 


002362 
002544 
002560 
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041501 
045522 
045522 


i 3 
25 


GLOBAL ERROR REPORT SECTION 


TAEMA: 
TAEMB: 
TAEMC: 


L10007: 


SKDAEM: 


PRINTX 


PRINTX 


EXI1 


»-NLIST 
~ASCIZ 
-ASCI2Z 
~ASCI2 
LIST 

EVEN 

ENDMSG 


BGNMSG 
PRINTX 


PRINTX 


PRINIX 


PRINIX 


WTAEMB ,EXTRAC 


MTAEMC ,ACTRAC 


MSG 


BEX 

/ZATRACK : %S9%ZS6%AP76543210%S5ZAUNIT 2 2D12N/ 
/ZATRK ACT EXP DATA:%S42B92N/ 
/ZATRKAZSZAACTASZAAC TUALZSZADATA: 2S2B9ZN2/ 
BEX 


SKDAEM 
#DAEM,UNIT 


#DAEMA 


#DAEMB,EXORDY,ACORDY,EXIDTR,ACIDIR 


MDAEMC ,EXTRAC ,ACTRAC,EXDATA,ACDATA 


TRAP 


SEQ 0054 


EXTRAC,-(SP) 
#TAEMB ,-(SP) 
#2,-(SP) 


ACTRAC,-(SP) 
#TAEMC ,-(SP) 
#2,-(SP) 


JSJMP 
L10007-2-. 


C$MSG 


UNIT,-(SP) 


ACIDTR,=-(SP) 
EXIDTR,-(SP) 
ACORDY ,~(SP) 
EXORDY,-(SP) 
#DAEMB,-(SP) 


ACDATA,=(SP) 
EXDATA,=(SP) 
AC TRAC ,=<\SP) 
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007316 


007404 
007406 


007734 


007770 
007770 
007770 


007772 
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013746 


010600 
04415 


ee el el eld o 
\L~™ 
~J 
= 
o 


000167 
000362 


045 
040445 


104425 


000167 
000102 


040445 
045 
045 

010140 


002342 
007617 
000005 


000014 
002366 


000005 


000014 


022471 


020060 


002422 
002370 


000005 


000014 


042101 


042501 
040501 
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032523 


051117 


dD 5 


26 
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L10010: 


ROMEM: : 


PRINTX 


P od 
” 
Oo 
— bt et ot st st C/) 


BGNMSG 
PRINTX 


EXIT 


»NLIST 


: ,ASCI] 


ASCII 
~ASCIZ 
~LIST 
EVEN 
ENDMSG 


#DAEMD ,EXTRDD.ACTRDD,EXODTR,ACODIR 


MSG 


BEX 
/%SO%SS%AEXPECTEDZS 7%AACTUAL%S 3%AUNI T : 2D 1%N/ 
/ZATRACK : SSBXAP 7654 32 10%S5%AP 7654321 02N/ 
/%AOUTPUT READY :%S%B9%S5%B9%N/ 
/%A1 OR DEAD:%S4%B9%S5%B9%N/ 
/%ATRACK ACTIVE: %S%B9%S5%B9%N/ 
/ZADATA:%S9%B9%S 5 %BIEN/ 
/%ATRACK DEAD: %S3%B9%S 5%B9%N/ 
/%A0 OR DEAD :%S4%B9%S5%B9%N2/ 

x 


ROMEM 
#ROMEMA,ROMLKI,EXROML ,ACROML,UNIT 


MSG 


BEX 

/ZAADDRESS=%S2042N/ 

/ZAEXPECTED=2%032N/ 

+ wane tlpaertecs tees acters 
x 


TRAP 


SEQ 0055 


EXTRAC,-(SP) 
#DAEMC ,-(SP) 
#5 ,-(SP) 


#14,SP 


ACODTR,-(SP) 
EXODTR,-(SP) 
ACTRDD,-(SP) 
EXTRDD,-(SP) 
#DAEMD ,-(SP) 
#5 ,-(SP) 

SP, 

CSPNTX 
#14,SP 


JSJMP 
L10010-2-. 


C$MSG 


UNIT ,-(SP) 
ACROML ,~(SP) 
EXROML ,-(SP) 
ROMLKI ,~(SP) 
#ROMEMA,-(SP) 
#5 ,-(SP) 

SP ,RO 

CSPNTX 

#14,SP 


JSIMP 
LIO0011-2-. 


GLOBAL 
CZ1S1B 


AREAS 
-P11 


010140 
010140 


010142 


10200 
10200 


and at aah etd ch ea ead 
i) 
m 
MN 
L—) 


010244 


010330 
010330 
010330 


010332 


010342 


— 
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104425 


040445 
010200 


000167 
000064 


040445 


104423 


000167 
000046 


040445 
010444 


051524 051125 


005037 
000001 


000004 
01024, 
00000! 


000004 


051524 


005037 
000001 


000004 
010376 
000001 


000004 


051524 051123 SCHERB: . 


TERMA: 


SCHER1: 


051123 SCHERA: 


L10012: 


SCHER2: 


19=AUG-79 20:27 PAGE 
GLOBAL ERROR REPORT SECTION 


L10011: 


NLIS1 


~NLIS] BEX 
-ASCIZ /2ZATSSR =%S2%06%S52%AUNIT 22D 12N/ 


~LIST 
EVEN 


;SET CHAR ERR MSGS SCHERI-SCHETEMPO 


BGNMSG 
PRINTB 


PRINTX 


EXIT 


-NLIST 
~ASCIZ 
LIST 
EVEN 
ENDMSG 


BGNMSG 
PRINTB 


PRINTX 


27 


BEX 


SCHER1 


#1S11BD 


ASCHERA 


MSG 


E 


5 


TRAP 


BEX 
/%ZATSSR NBA NOT SET ON COMD BEFORE SET CHAR ISSUED&ZN/ 


BEX 


SCHER2 


#1S11BD 


#SCHERB 


MSG 


BEX 
/ZATSSR NBA NOT CLEARED BY SET CHAR2N/ 


BEX 


TRAP 


SEQ 0056 


C$MSG 


#TS11BD,-(SP) 


JSJMP 
L10012-2-. 


C$MSG 


#1S11BD,-(SP) 


JSIMP 
L10013-+2-. 


A 


GLOBAL 
CZ1S1B 


AREAS 
P11 


010444 
010444 
010444 


010446 


010510 
010512 


010540 


10542 


10542 
10546 
10552 


0 
0 
0 
0 
0 
0 
0 
010556 
010562 
010562 
0 
0 
0 
0 
0 
0 
0 
0 
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104423 


esece 
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040445 
010540 


104423 


000167 
000076 


040445 
040445 


010704 


104423 


005037 
000001 


000004 
010512 
000001 


000004 


051515 


010606 
00001 


000004 


010634 


000001 


000004 


040502 
047511 
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020107 


020104 
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28 
GLOBAL ERROR REPORT SECTION 


L10013: 


SCHERS:: 


SCHERC: 


L10014: 


SCHERG:: 


SCHERN: . 
051440 SCHERD: . 


L10015: 


ENDMSG 


BGNMSG 
PRINTB 


PRINTX 


EXIT 


~NLIST 
~ASCIZ 
LIST 
EVEN 
ENDMSG 


BGNMSG 
PRINTB 


PRINTX 


SCHERS 
#1S11BD 


#SCHERC 
MSG 


BEX 
/%ZAMSG PKT IN DOUBTAZN/ 
BEX 


SCHER4 
#SCHERN 


#SCHERD 


MSG 


BEX 

/ZABAD M8967 SLOT 122N/ 

/%ZA10 SEG CROM PARITY ERROR TSSR FC=12%N/ 
BEX 


TRAP 


TRAP 


TRAP 


se 


C$MSG 


#1S11BD,-(SP) 
wi, -(SP) 


#1,-(SP 


JSJMP 
L10014-2-. 


C$MSG 


4 pape be - (SP) 
#1,-(SP 

SP,RO 

CSPNTB 

#4 ,SP 


M@SCHERD,-(SP) 


JSJMP 
L10015-2-. 


C$MSG 


| 
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CZ1S1B.P11 19-AUG-79 20:2 GLOBAL ERROR REPORT SECTION SEQ 0058 
984 
985 010706 BGNMSG SCHERS 
986 010706 SCHERS:: 
987 010706 PRINTB #SCHERE 
988 010706 012746 010752 MOV #SCHERE ,-(SP) 
989 010712 012746 000001 MOV #1,-(SP) 
990 010716 010600 MOV SP ,RO 
991 010720 104414 TRAP CSPNTB 
992 010722 062706 000004 ADD #4,SP 
993 010726 PRINTIX #SCHERF 
994 610726 012746 011036 MOV ASCHERF ,-(SP) 
995 010732 012746 000001 MOV #1,-(SP) 
996 010736 010600 MOV SP ,RO 
997 010740 104415 « TRAP CSPNITX 
998 010742 062706 000004 ADD #4,SP 
999 010746 EXIT MSG 
1000 010746 000167 -WORD J$uMP 
1001 010750 000146 -WORD L10016-2-. 
1002 -NLiST BEX 
010752 040445 951524 030461 SCHERE: .ASCIZ /%ATS11 BOARD OR SERIAL BUS CABLE OR M8965 SLOT 152N/ 
011036 040445 042523 044522 SCHERF: nts a BUS PARITY ERROR SPE OR BPE ITSSR FC=22N/ 
LI EX 
1003 EVEN 
1004 011120 ENDMSG 
1005 011120 L10016: 
fa 011120 104423 TRAP C$MSG 
1008 011122 BGNMSG SCHER6 
1009 011122 SCHERG:: 
1010 011122 PRINTB #SCHERG 
1011 011122 012746 011166 MOV #SCHERG,-(SP) 
1012 011126 012746 000001 MOV #1,-(SP) 
1013 011132 010600 MOV SP,RO 
1014 011134 104414 TRAP CSPNTB 
1015 011136 062706 000004 ADD #4,SP 
1016 011142 PRINIX #SCHERH 
1017 011142 012746 011210 MOV #SCHERH,=-(SP) 
1018 011146 012746 000001 MOV #1,-(SP) 
1019 011152 010600 MOV SP,RO 
1020 011154 104415 TRAP CSPNIX 
1021 011156 062706 000004 ADD #4,SP 
1022 0°*1162 EXIT MSG | 
1023 011162 000167 -WORD JSJMP 
10246 011164 000070 ~MWORD L10017-2-. 
1025 .NLIST BEX 
011166 040445 034115 033071 SCHERG: .ASCIZ /2%AM8966 SLOT 142%N/ 
011210 040445 044523 047514 SCHERH: ne i PARITY ERROR SIP TSSR FC=22N/ 
ri x 
1026 011256 EVEN 
1027 9011256 ENDMSG 
1028 011256 L10017: 
1029 011256 104423 TRAP C$MSG 
1030 
1051 | 
1032 011260 BGNMSG SCHER? 
1033 011260 SCHER7:: 


a ee ee ee LT TT TT TT LT 


oo ee ee em eee ewe + ee ee ——< 
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CZTS1B.P11 19-AUG-79 20:26 GLOBAL ERROR REPORT SECTION SEQ 0059 
1034 011260 PRINTB #SCHERI 
1035 011260 012746 011350 MOV ASCHER] ,-(SP) 
1036 011264 012746 000001 MOV #1,-(SP) 
1037 011270 010600 MOV SP ,RO 
1038 011272 104414 TRAP CSPNTB 
1039 011274 062706 000004 ADD #4 ,SP 
1040 011300 LET R2 := #PCHLTIB 
1041 011500 012702 011436 MOV #PCHLTB,R2 
1042 0113504 WHILE (R2) NE #177777 DO 
1045 011304 50002$: 
1044 011304 02122? 177777 CMP (R2) ,#177777 
1045 011510 001415 BEQ 50005$ 
1046 011312 LET PCHTAD := (R2) 
1047 0113512 011237 011432 MOV (R2),PCHTAD 
1048 011516 PRINTB PCHTAD 
1049 0113516 013746 011432 MOV PCHTAD,-(SP) 
1050 011322 012746 000001 MOV #1,-(SP) 
1051 011326 010600 MOV SP ,RO 
1052 011330 104414 TRAP CSPNTB 
1053 011332 062706 900004 ADD #4 ,SP 
1054 011336 LET R2 := R2 + #2 
1055 011336 062702 000002 ADD #2,R2 
1056 011342 ENDDO 
1057 011342 000760 | BR 50002$ 
1058 0115344 500058: 
1059 011344 EXIT MSG 
1060 011344 000167 -WORD J$JMP 
1061 011346 000064 ~WORD L10020-2-. 
1062 ~NLIST BEX 

011550 040445 051524 051123 SCHERI: titi. 4 ip by FC=2 FATAL MICRO ERR HALTS PC=1750-1777%N2/ 
~LIS EX 

10635 EVEN 
1064 011432 000000 PCHTAD: .WORD 0 
1065 011434 ENDMSG 
1066 011434 L10020: 
wel 011434 104425 TRAP C$MSG 
106 P 
1069 0114356 011530 011624 011674 PCHLTB: .WORD PCHDR,PCHDRA,PCHDRB 
1070 011444 011736 012015 012057 ~WORD PCHT50,PCHT51,PCHT52 
1071 011452 012133 012215 012277 ~WORD PCHT53,PCHT54,PCHT5S 
1072 011460 012342 012403 012444 -WORD PCHT56,PCHTS7,PCHT60 
1073 0114660 012512 012554 012624 -WORD PCHT61,PCHT62,PCHT63 
1074 011474 012702 012760 013025 ~WORD PCHT64,PCHT65,PCHT66 
1075 011502 013073 013141 013213 ~WORD PCHT67,PCHT70,PCHT71 
1076 011510 013275 013353 013435 ~WORD PCHT72,PCHT73,PCHT74 
1077 011516 013511 013600 013665 ~WORD PCHT75,PCH75A,PCHT76,PCHT77 
1078 011524 013747 
1079 011526 177777 ~WORD ENDTBL 
1680 
1081 ~NLIST BEX 


041520 042440 PCHDR: .ASCIZ /ZAPC ERROR HALTS BAD MODULES: fests 1 M8965,M8964,0R M89672N/ 
031462 040445 PCHDRA: .ASCIZ /%S25ZASLOT: 8&8 11 9 12%N/ 
674 040445 050040 022503 PCHDRB: .ASCIZ /%A PCZS17ZACOMMENT2S 1 52AMODULERN2/ 
6 033461 030065 PCHT5O: .ASCIZ /%A1750 OPERATION 10 PROBLEM%ZS14%AM8967,15112N/ 
030501 0324667 PCHT51: .ASCIZ /%A1751 SPURIOUS ATIN%S22%AM896 32N/ 


; 3 
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GLOBAL AREAS 


CZ1S1B.P11 19-AUG-79 20:26 SEQ 0060 

012057 045 030501 03246 PCHTS2: .ASCIZ /%A1752 STK PAR ERR ON OVERFLOWZS122AM89652N/ 

012133 045 030501 032467 PCHT53: .ASCIZ /%A17535 STK NOT EMPTY AT END OF TASK M896 32N/ 

012215 045 030501 032467 PCHTS4: .ASCIZ /2%A1754 STK PTR REG WON'T HOLD DATA. M89632N/ 

012277 045 030501 032467 PCHT5S: .ASCIZ /%A1755 UTSTM - BRANCH2S212AM89622N/ 

012342 040445 033461 033065 PCHTS6: .ASCIZ /%A1756 UTSTM = ZBIT2S2352AM89622N/ 

012403 045 030501 032467 PCHTS7: .ASCIZ /%A1757 UTSTM - NBIT2%S232AM89622N/ 

012444 040445 033461 030066 PCHT60: .ASCIZ /%A1760 UTSTM - NOT Z B1T%S182AM89622N/ 

012512 040445 033461 030466 PCHi61: .ASCIZ /2%A1761 UTSTM - C BITZS22%AM89622N/ 

012554 040445 033461 031066 PCKT62: .ASCIZ /2%A1762 UTSTM = PC®& LO TEST2S162AM89622N/ 

012624 040445 033461 031466 PCKT63: .ASCIZ /%A1763 UTSTM - INTERNAL REG ERRORZS9IZAM896223N/ 

012702 040445 033461 032066 PCHT64: .ASCIZ /%A1764 UTSTM - INTERNAL REG ERRORZS9ZAM89622N/ 

012760 040445 033461 032466 PCH'65: .ASCIZ /%A1765 UTSTM = ADD TEST2S19%AM89622N/ 

013025 045 030501 033067 PCHY66: .ASCIZ /2%A1766 UTSTM - A SUBTEST2S182AM89622N/ 

013073 045 030501 033067 PCHI167: .ASCIZ /%A1767 UTSTM - BSUB TEST%2S182AM8°S 6 24N/ 

013141 045 030501 033467 PCHT70: .ASCIZ /%A1770 UTSTM = SHIFT LR TEST2S142AM89622N/ 

013213 045 030501 033467 PCHT71: .ASCIZ /%A1771 UTSTM - LOGICAL:AND,OR,XOR,NAND M8962%N/ 

013275 045 030501 033467 PCHT72: .ASCIZ /2%A1772 STAKM = STACK PARITY ot by pea 

013353 045 030501 033467 PCHT’3: .ASCIZ /%A1773 STAKM = STACK UNDER-OVERFLOW M89632N/ 

013435 045 030501 033467 PCHT74: .ASCIZ /2%A1774 STAKM = STACK DATA TEST%2S12%AM89652N/ 

013511 045 030501 033467 PCHT75: .ASCIZ /%A1775 STAKM = CAPSTAN BUS DATA TEST M8963,G6159%N/ 

013600 040445 044103 041505 PCH75A: .ASCIZ /ZACHECK TACH PHASE,DECEL AND SPEED ADJUSTS ON 6159%N/ 

013665 045 030501 033467 PCHI76: .ASCIZ /%A1776 STAKM - CBUS BRANCH TEST M896 32N/ 

013747 045 030501 033467 PCHT77: .ASCIZ /%A1777 STAKM = SIMULATED LIMIT ATTN TEST M89632N/ 

-LIST BEX 

1082 014032 EVEN 
1083 014032 BGNMSG SCHERO 
1084 014032 SCHERO: : 
1085 014032 PRINTB #SCHERL 
1086 014032 012746 014076 MOV MSCHERL,-(SP) 
1087 014036 012746 000001 MOV #1,-(SP) 
1088 014042 010600 MOV SP,RO 
1089 014044 104414 TRAP C$PNTB 
1090 014046 062706 000004 ADD #4,SP 
1091 014052 PRINTX #SCHERM 
1092 014052 012746 014121 MOV #SCHERM,-(SP) 
1093 014056 012746 000001 MOV #1,-(SP) 
1094 014062 010600 MOV SP,RO 
1095 014064 104415 TRAP CSPNIX 
1096 014066 062706 000004 ADD #4,SP 
1097 014072 EXIT MSG 
1098 014072 000167 -WORD JSJMP 
1099 014074 000042 WORD 1L10021-2-. 
1100 .NLIST BEX 

014076 040445 041501 046040 SCHERL: .ASCIZ /%AAC LOW AT 1TS042%N/ 

014121 045 052101 051523 SCHERM: neti foatee FC=3%N/ 

L x 

1101 014140 EVEN 
1102 914140 ENDMSG 
1103 014140 L19021: 
1104 014140 104423 TRAP C$MSG 
1105 
1106 
1107 014142 BGNMSG ROMLER 
1108 014142 ROMLER:: 


a ee ee ee 
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AREAS 
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014224 
014226 


014250 
014504 


014566 
014366 
014366 
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000167 
000156 


040445 
040445 


104425 
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005062 
000001 


000004 


014250 
000001 


000004 


014504 


000001 


000004 


047525 
047503 
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L10022: 


MICERR:: 


020115 MICERA: 
042504 MICERB: 


L10023: 


PRINIB #FAMTCTR 


ENDMSG 


MICERR 
MMICERA 


BGNMSG 
PRINTB 


PRINTX #MICERB 


EXIT MSG 


~NLIST 
ASCIZ 
-ASCIZ 
“ALTS7 ) |«6GER 
EVEN 
ENDMSG 


BEX 
/%AUOK 


LIGHT OFF ,XTAT3=OP PANEL=ERROR CODE%N/ 
/ZACODERS 1OZAERROR&ZSZ2BZAMODULE (SLOT) SCOPE LOOP%N2/ 


TRAP 


(em ee ee ee ee 


SEQ 0061 


W#FRATCTR,-(SP) 


#1,-(SP) 


wi, =(SP) 


JSIMP 
L10025-2-. 


C$MSG 


K 5 
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CZ1S1B.P11 19-AUG-79 20:26 GLOBAL ERROR REPORT SECTION SEQ 0062 
1144 
stad .SBTTL GLOBAL SUBROUTINES SECTION 
1147 ;+4 
1148 : THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
i sen : THAT ARE USED IN MORE THAN ONE TEST. 
1151 
fe : MODULES TO HANDLE 1804 INTERRUPTS. 
1154 014370 BGNSRV TS4INO :DEVICE 0. 
1155 014370 TSGINO:: 
1156 014370 LET CTILFLG :B= :SET INTERRUPT OCCURRED FLAG. 
1157 014370 112737 000001 002437 MOVB 
1158 014376 ENDSRV 
1159 0143576 L10024: 
tat 014376 000002 RT] 
1162 014400 BGNSRV TS4IN! 
1163 014400 TSGINI:: 
1164 014400 LET CTLFLG :B= :SET INTERRUPT OCCURRED FLAG. 
1165 014400 112737 000001 002437 MOVB 
1166 014406 ENDSRV 
1167 014406 L10025: 
1168 014406 000002 : RTI 
1170 014410 BGNSRV TS4IN2 
1171 014410 TSG4IN2:: 
1172 014410 LET CTILFLG :B= :>SET INTERRUPT OCCURRED FLAG. 
1173 014410 112737 000001 002437 MOVB 
1174 014416 ENDSRV 
1175 014416 L10026: 
Ha 014416 000002 RT] 
1178 014420 BGNSRV TS4IN3 
1179 014420 TSGINS:: 
1180 014420 LET CTILFLG :B= :SET INTERRUPT OCCURRED FLAG. 
1181 014420 112737 000001 002437 MOVB 
1182 014426 ENDSRYV 
1183 014426 L10027: 
1184 014426 000002 RT] 
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S1B.P11 19-AUG-79 20:26 GLOBAL SUBROUTINES SECTION SEQ 0063 
185 ; SUBROUT INE TO WAIT UP TO 1 MINUTE FOR THE SSR BIT 
H+ ; O SET - REPORT AN ERROR IF IT DOESN'T SET AND ATTEMPT TO DROP UNIT 
188 014430 005037 002426 WI4SSR:: CLR TIME : INIT TIMEOUT COUNTER. 
189 014434 1$: BREAK 60 TO SUPERVISOR. 
190 014434 104422 TRAP C$BRK 
191 014436 105777 165562 TSTB @TSsR :READY? 
192 014442 100432 BM] 2$ BR IF SO 
193 014444 005337 002426 DEC TIME WAIT 
194 014450 001371 BNE 1$ ‘DONE “WAITING? BR IF NOT. 
195 014452 017737 165546 002434 MOV aTSSR,TEMP2 GET TSSR 
196 014460 012701 014532 MOV #TERMTB,RI 
197 014464 ERRDF 2,SSROFF,LONMSG :1F SO, REPORT AN ERR IF SSR NOT SET YET. 
198 014464 104455 TRAP CSERDF 
199 014466 000002 -WORD 2 
200 01447C 002566 .WORD SSROFF 
014472 005774 WOR LONMSG 
014474 PRINTX #TERMA,TEMP2,UNIT PRINT TSSR CONTENTS 
014474 013746 002422 MOV UNIT, =(SP) 
014500 013746 002434 MOV TEMP2,-(SP) 
014504 012746 010142 MOV #TERMA,-(SP) 
014510 012746 000003 MOV #3,-(SP) 
1207 014514 010600 MOV SP,RO 
1208 014516 104415 TRAP CSPNTX 
1209 014520 062706 000010 ADD #10,SP 
1210 014524 CALL DROPU ATTEMPT TO DROP UNIT 
1211 014524 004737 014570 JSR PC ,DROPU 
1212 -1F DROPPED PROG ABORTS CURRENT PASS 
1213 :1F INHIBIT DROP FLAG SET BY OPERATOR (1DU) 
1214 THEN PROGRAM CONTINUES 
iets 014530 000207 2$: RTS PC »RETURN. 
1217 014532 003630 003651 003714 TERMTB: .WORD TERMO1,TERMO2, TERMO3 
1218 014540 003775 004056 .WORD  TERMOS,TERM06 
1219 014544 004155 004231 004306 .WORD 7ERMO7,TERMIO,TERM11 
1220 014552 004411 004476 004547 WORD TERM12,TERM13,TERMI4 
1221 014560 004620 004705 004776 -WORD TERM15,TERM16,TERMI7 
eee 014566 177777 .WORD ENDTBL 
ieee : SUBR TO ATTEMPT TO DROP A UNIT FLAGGED WITH A DEVICE FATAL ERROR 
1226 014570 DROPU:: DODU LUNIT EXECUTE DROP MACRO 
1227 014570 013700 027574 MOV LUNIT,RO 
1228 014574 104451 TRAP C$DODU 
1229 014576 GPHARD LUNIT,TIME :1S UNIT DROPPED 
1230 014576 013700 027574 MOV LUNIT,RO 
1231 014602 104442 TRAP C$GPHRD 
1232 014604 010037 002426 MOV RO, TIME 
1233 014610 BCOMPLETE 1$ ‘NO RETURN TO CALLER TO PROCEED 
1234 014610 103401 BCS 1$ 
1235 014612 DOCLN YES EXEC CEAN-UP CODE TO START NEW PASS 
1226 014612 104444 TRAP C$DCLN 
1237 014614 000207 1$: RTS PC 
1536 
1240 : SUBR TO WAIT AN EXTRA LONG TIME FOR THE SSR BIT TO SET 
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012737 
000402 


005237 


023727 
003025 


032777 
001401 


000416 


012727 


001367 
104422 


000747 


012737 
000402 


005237 


023727 
003025 


000001 


002426 
002426 


000200 


001750 
002116 
177772 
177756 


002426 


015144 
000001 


000004 


000001 


002426 
002426 


19-AUG-79 20:27 
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NEEDED AFTER AN INIT IS SENT TO TS11 TO WAIT FOR LOAD SEQ 
REPORT ERROR AND DROP UNIT IF EXTRA 


002426 


000013 


165554 


000015 


002426 


000160 


PAGE 35 


TO COMPLETE. 
TIME 1S EXCEEDED. 


WAITSR::BEGIN COUNTER| 
INCR TIME FROM #1 TC #15 BY #1 


IF #TS.SSR SETIN @TSSR THEN 


LEAVE COUNTER1 


ELSE 


DELAY 1000. 


BREAK 


ENDIF 
ENDINC 


END COUNTER1 
if TIME GT #15 THEN 


PRINTF #WAILTMR 


BEGIN COUNTERZ2 
INCR TIME FROM #1 TO #160 BY #1 


50006$: 
50005$: 


50010$: 


50011$: 


50007$: 
50004$: 


500158: 
500148: 


BR 





SEQ 0064 


#1, TIME 
50005$ 


TIME 


TIME ,#15 
50007$ 


#TS.SSR,aTSSR 
50010$ 


50004$ 


preeneaeree® 
LSDLY,(PC)+ 


C$BRK 


50006$ 


TIME ,#15 
50012$ 


#WALTMR,-(SP) 
#1 ,-(SP) 

SP ,RO 

CSPNTF 

#4 ,SP 

#1, TIME 
50014$% 

TIME 

TIME ,#160 
50016$ 


GLOBAL 
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032777 
001401 


000416 


012727 


001567 
104422 


000747 


025727 
003430 


017737 
012701 
104455 


005774 
0135746 


062706 


000410 


000200 


001750 
002116 
177772 
177756 


002426 


165156 
014532 


002422 


005763 
000001 


000004 


046) 
6 
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165232 


000160 


002454 


GLOBAL SUBROUTINES SECTION 
IF #TS.SSR SETIN @TSSR THEN 


LEAVE COUNTER2 


ELSE 


DELAY 1000. 


BREAK 
ENDIF 
ENDINC 


END COUNTER2 
IF TIME GT #160 THEN 


LET TEMP2 := @TSSR 
LET R1 := #TERMTB 
ERRDF 2,SSROFF,LONMSG 


PRINTX MTERMA,TEMP2,UNIT 


JSR PC,DROPU 
ELSE 


PRINTF #CRMSG 


ENDIF 


50017$: 


500208: 


500168: 


500138: 


500218: 


BR 


BR 


SEQ 0065 


#TS.SSR,aTSSR 
50017$ 


50013$ 


preeeen rare 
perewnr 
-6(PC) 

74 

-22(PC) 

720 

CS$BRK 


50015$ 


TIME ,#160 
50021$ 
QTSSR,TEMP2 
#TERMTIB,RI 


CSERDF 
2 


SSROF F 
LONMSG 


UNIT ,-(SP) 
TEMP2 ,-(SP) 
#TERMA,-(SP) 
#3,-(SP) 


CSPNTX 
#10,SP 
50022$ 


#CRMSG,-(SP) 
#1,-<SP) 
SP RO 
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CZ1S1B.P11 19-AUG-79 20:26 GLOBAL SUBROUTINES SECTION SEQ 0066 
1353 015142 $0022$: : 
1354 015'42 ENDIF | 
1355 015142 $00127$: 
1356 01£142 000207 RTS PC 
1358 075144 047045 040445 040527 WAITMR: .ASCIZ /%NZAWAITING FOR RDY... 
1359 015152. 052111 047111 020107 
1360 015160 047506 020122 042122 
1361 015166 027131 027056 000 
1362 015174 SEVEN 
1363 
1364 


GLOBAL 
CZ TSI1B 


AREAS 
P11 


15244 
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000240 


000240 


032737 
001501 


012746 
012746 
062706 
012737 
000402 
005237 


023/27 
003031 


012737 
012777 
012727 


001367 
104422 


032737 
001001 


090401 


000741 


023727 
003412 


000200 


015420 
000001 


000004 


000001 


002426 
002426 


100017 
002230 
001750 
002116 
177772 
177756 


000200 


002426 
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002266 


002426 


000160 


0022350 
164720 


002266 


090160 


GLOBAL SUBROUTINES SECTION 


WAITMT:: 


SUBR TO WAIT FOR TAPE MOTION TO CEASE WHEN AN INIT TO THE 
ON-LINE TS11 INITIATED A LOAD SEQUENCE. 
NOP 
NOP 
NOP 
OP 


N 
1— #MOT SETIN XSTATO THEN 


PRINTF #WAILTMS 


BEGIN COUNTER 
INCR TIME FROM #1 TO #160 BY #1 


50026$: 
50025$: 
LET CMDPKT := #GES 
LET @TSDB := #CMDPKT 
DELAY 1000. 
BREAK 
IF #MOT NOTSETIN XSTATO THEN 
LEAVE COUNTER 
ENDIF 
500308: 
ENDINC 
$0027$: 
END COUNTER 
500248: 


If TIME GT #160 THEN 


BR 


CMP 
BLE 





SEQ 0067 


#MOT,XSTATO 
50025$ 
AWALTMS ,-(SP) 
#1,-(SP) 

SP ,RO 


CSPNTF 
#4 ,SP 


#1, T1ME 
50025$ 
TIME 


TIME , #160 
50027$% 


#GES,CMDPKT 
#CMDPKT,a@TSDB 
#1000.,(PC)+ 
rane: 
-6(PC) 

74 

-22(PC) 

720 

C$BRK 
#MOT,XSTATO 
50030$% 


50024% 


50026% 


TIME ,#160 
50031$% 


GLOBAL 
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000410 


* 000207 


040445 


022507 


015456 
000001 


000004 


0057635 
000001 


000004 


040527 


000116 
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GLOBAL SUBROUTINES SECTION 
PRINTB #WAITEM 


MOV 
MOV 
MOV 
TRAP 
ADD 
DOCLN 
TRAP 
ELSE 
KR 
50031$: 
PRINTF #CRMSG 
MOV 
MOV 
MOV 
TRAP 
ADD 
ENDIF 
50032$: 
ENDIF 
500238: 
RTS PC 


052111 WAITMS: .ASCIZ /ZAWAITING FOR TAPE 10 STOP.../ 
047506 


WAITEM: .ASCI1 /%AWAIT TOO LONGAN/ 


-ASCIZ /%ASWITCH UNIT OFFeLINE, RESTART DIAG&N/ 


040511 


EVEN 


AWAITEM,-(SP) 
#1,-(SP) 


CS$PNTB 
#4,5P 


CSDCLN 
50052$ 


#CRASG,-(SP) 
#1,-(SP) 
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CZ1S1B.P11 19-AUG-79 20:26 GLOBAL SUBROUTINES SECTION SEQ 0069 
1463 :S/R TO GENERATE AN EVEN OR ODD PAR BIT. ENTER WIin R1 CONTAINING THE @ 
1464 -FOR WHICH YOU WISH TO HAVE PAR GEN. EXIT WITH THE PARITY B:T IN THE 
wees :LOW ORDER BIT OF TEMPO. CLOBBERREDS TEMPO 
1467 015546 012737 000001 002430 ODDPAR:: MOV #1, TEMPO : INIT THIS REG FOR ADD PAR. 
1468 015554 000137 015564 JMP PARGEN : CONTINUE 
1469 015560 005037 002430 EVNPAR: CLR TEMPO INIT THIS REG FOR EVEN PAR. 

1470 015564 012737 000020 002434 PARGEN: MOV #20, TEMP2 : INIT COUNTER 

1471 015572 005337 002434 1$: DEC TEMP2 :DONE ALL BITS? 

1472 015576 100405 BM] 2$ :BR IF SO 

1473 015600 006001 ROR R1 :ROTATE THE DATA. 

1474 015602 103773 BCS 1$ 

1475 015604 005237 002430 INC TEMPO 

7s 015610 000770 BR 1$ :DO0 IT AGAIN 

1478 015612 006001 2$: ROR R1 -ROTATE ONCE MORE TO GET ORIG CONTENTS 
1479 015614 042737 177776 002430 BIC #177776, TEMPO -CLR ALL BUT LO ORDER BIT IN TEMPO. 
1480 -LO ORDER BIT IS THE PAR BIT 

1481 :RETURNED TO THE CALLING ROUTINE. 
1482 015622 000241 CLC -CLR CARRY BIT 

1483 015624 000207 RTS PC > RETURN 

1484 

1485 

1486 

1487 

1488 -S/R TO LOAD THE DIABLK WITH R3 (DATA) BITS AND R4& (CONTROL) BITS WITH 

1489 CORRECT PARITY. 

1490 : INPUTS: R3 DATA, R4& CONTROL, R5 DIABLK INDEX. 

1491 : OUTPUTS: R3 DATA (UNCHANGED), R4& CONTROL (WITH GOOD PARITY), R5 
1492 : UPDATED DIABLK INDEX. 

1693 : CALLS: ODDPAR SUBROUTINE 

494 

1495 015626 110345 TALOAD:: MOVB R3,-(R5) LOAD DATA 

1496 015630 005703 TST R3 ALL O'S DATA? 

1497 015632 001403 BEQ 1$ :BR IF SO 

1498 015634 052704 000020 BIS #1S.DAP,R4 -1F NOT, SET THE PARITY DATA ALSO IN RG (CNTRL WW 
a 015640 000402 BR 3% : CONTINUE. 

1501 015642 042704 000020 1$: BIC #1S.DAP,R4 -CLR THE PAR DATA BIT IN CNTRL WORD. 
1502 015646 010401 3$: MOV R4,R1 :SAVE IT. 

1503 015650 004737 015546 JSR PC ,ODDPAR CALC CONTROL WORD PARITY. 

1504 015654 005737 002430 TST TEMPO :1S PARITY BIT SET? 

1505 015660 001402 BEQ 2$ :BR IF NOT 

1506 015662 052704 000200 BIS WIS. PAR,RG -1F SO, SET THE PAR BIT. 

1507 015666 110445 2$: MOVB R4,-(R5) *LOAD THE CONTROL WORD 

1508 015670 000207 RTS PC >RETURN. 


oe, a 
SE le ll eed ee eee “© 
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;S/R TO COMPLETE FILLING THE DIABLK WITH ENTRIES WHOSE FORMAT THE TS04 
;RECOGNIZES. UNUSED DIABLK LOCATIONS TO CONTAIN A TSO04 RTS COMMAND. 


015672 020527 002317 FIXDIA:: CMP RS ,#DIABLK+1 ;ARE WE ON DIABLK ODD BOUNDARY? 

015676 001406 BEQ 1$ :BR IF SO 

015700 100407 BA] 2% ;ARE WE ON DIABLK EVEN BOUNDARY? 
;BR IF SO-WE*RE DONE. 

015702 112745 000033 MOVB #POPJLO,-(R5) ;LOAD TS04 

015706 112745 000000 MOVB #POPJHI ,-(R5) :RTS COMMAND. 

015712 000767 BR FIXDIA ;REPEAT. 

015714 412765 177777 1$: MOVB #-1,-(R5) ;MUST END ON AN EVEN BOUNDARY. 

015720 000207 2$: 2TS PC ;RETURN. 


;S/R TO SETUP THE TS04 COMMAND PACKET AND INITIATE EXECUTION OF THE DIA 


; COMMAND. 

; CALLS:: WI4SSR SUBROUTINE. 
015722 004737 014430 DIAEXE:: JSR PC, WI4SSR ;SEE IF SSR 1S SET. SHOULD BE 
015726 004737 015772 JSR PC, INIIM >INITIALIZE THE MESSAGE PACKET. 
015732 012777 002250 164254 MOV MDIAPKT ,@TSDE > INITIATE EXECUTION 
015740 004737 014430 JSR PC ,WI4SSR ;WAIT FOR SSR TO SeT 
015744 000207 RTS PC 


~ 
—¢? 


me ee. ee 
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;S/R TO SETUP THE COMMAND PACKET TO DO AN SCH COMMAND AND ISSUE THE 


AREAS MACY11 50(1046) 


P11 19-AUG-79 20:26 SEQ 0071 


WMAWNMAWVAVIVIA oO 
EPP ETWAAAS Oo 
Fwnr—O0eOnecw Ore 
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Le a] 
, 
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: COMMAND. 

. CALLS:: WI4SSR SUBROUTINE. 
015746 004737 014616 SCHEXE:: JSR PC ,WAITSR sWAIT FOR SSR BIT iO SET. 
015752 004737 01577 JSR PC,INIIM : INITIALIZE THE MESSAGE PACKET. 
015756 012777 002240 MOV #SCHPKT,@TSDB s INITIATE EXECUTION. 
015764 004737 014616 JSR PC,WAITSR sWAIT FOR SSR. 
015770 000207 RTS PC :RETURN. 

;S/R TO INITIALIZE THE MESSAGE PACKET WITH ALL ONES. 

; REGISTERS USED: R1 
015772 INIJTM: LET RI := #0 :CLEAR LOCATION COUNTER. 
015772 005001 CLR R1 
015774 WHILE R1 NE #MSGEXT DO sWHILE THERE ARE MORE LOCATIONS: 
015774 500338: 
015774 020127 000016 CMP R1,@MSGEXT 
016000 001406 BEQ $0034$ 
016002 LET MSGPKT(R1) := @=1 : INIT ONE LOCATION IN MSG PACTET, 
016002 012761 177777 MOV #-1 ,.MSGPKT(R1) 
016010 LET R1 := RI + #2 sUPDATE COUNTER 
016010 062701 000002 ADD #2,R1 
016014 ENDDO :END OF INIT LOOP. 
016014 000767 KR 50033% 
016016 500348: 
016016 000207 RTS PC >RETURN. 
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CZ1S1B.P11 19-AUG-79 20:26 GLOBAL SUBROUTINES SECTION SEQ 0072 
1565 -S/R TO SHIFT BYTE A 1 IN A FIEL LD OF O'S. WHEN WE'RE THROUGH 
Pig :DOING THAT, SHIFT BYTE AO IN A FIELD OF 1°S. 
1568 : INPUTS: RG=DATA 19 SHIFT. 
Fs 2 ; OUTPUTS: RG4-SHIFTED DATA. 
1571 016020 006204 . SHWRAP:: ASR R4 SHIFT THE DATA. 
1572 016022 105704 TS1B RG -SHIFTING A 1? OR A 0? 
1873 016024 100404 BM] 1$ -BR IF SHIFTING A O. 
1574 016026 001005 BNE 2$ -DONE SHIFTING A 1? BR IF NOT. 
1575 016030 012704 177577 MOV #177577,R4 -1F SO, SETUP TO SHIFT O IN FIELD OF 1°S. 
vars 016034 000402 bi 2% : CONTINUE. 
1578 016036 052704 000200 1$: BIS #200,R4 SET THE MSB. 
1579 016042 000207 2$: RTS PC :RETURN. 
1580 
1581 
1582 
1583 S/R TO CHECK FOR TRACK ACTIVE ERRORS. 
1584 : 
1585 : 
teas ; OUTPUTS: ACTRAC CONTAINS THE ACTUAL TRACK ACTIVE DATA IN BITS O THRU 8 
1588 016044 113737 002267 002360 IKACER:: MOVB MSGPKT+C18$TA,ACTRAC GET ACTUAL STATE OF ACTIVE BITS FOR CHANS 1-8. 
1589 016052 LET R2 :B= MSGPKT*PRCHST -GET THE TRK ACT DATA FOR CHAN 9 
1590 016052 113702 002274 MOVB MSGPKT+PRCHST,R2 
1591 016056 032702 000004 BIT #CHO.TA,R2 1S IT SET? 
1592 016062 001404 BEQ 1$ “BR IF. NOT 
1593 016064 052737 000400 002360 BIS #B1T8,ACTRAC -1F SO, SET THE APPROPRIATE BIT IN ‘‘ACTUAL’’ REG 
ieee 016072 000403 BR 3$ : CONTINUE. 
1596 016074 042737 C00400 002360 I$: BIC #BITB,ACTRAC -CLEAR THE BIT IN “‘ACTUAL'' REG. 
1597 016102 042737 177000 002360 33%: BIC #177000, ACTRAC CLR GARBAGE. 
1598 016110 023737 002342 002360 CMP EXTRAC, ACTRAC -EXPECTED & ACTUAL DATA IDENTICAL? 
1599 016116 001402 BEQ 2$ ;BR IF SO. 
1600 016120 105237 002436 INCB ERRFLG SET THE ERR FLAG. 
1601 016124 000207 2$: RTS P( *RE TURN. 


GLOBAL 
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016132 
016136 
016140 
016142 
016146 


016152 


016154 


016160 
016160 
016164 
016170 
016174 
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004737 


112745 
010304 
005104 
042704 
004737 


000207 


016154 
000012 


177000 
016176 


002536 


000005 
000200 
000100 
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i. came” USED BY THE PE DATA TESTS TO BUILD THE DIABLK 


INPUTS: 
; R2 = 
; R53 = 
DATBLD:: JSR PC,PEINIT 
MOVB 
MOV R3,R 
COM RG 
BIC #177000,R4 
JSR PC,PEDATA 
RTS PC 


PREAMBLE DATA. 


BYTE 


ee eee ee 


1 


DATA. 


SEQ 0075 


;GO SET THE WRAP TASK ADDR IN DIABLD 


;AND INIT DIABLK INDEX. 


;SET DATA & VCO MODE IN FMT CNIRL. 
;SETUP SECOND BYTE OF DATA. 

;COMPLEMENT THE BYTE 2 DATA. 
;CLR GARBAGE BITS. 
;LOAD THE PREAMBLE AND THE 2 DATA BYTES 
;1N DIABLK 


sRETURN. 


;S/R TO LOAD THE DIABLK WITH THE TSO4 WRAP TASK ADDRESS, 


;AND SETUP THE READ CONTROL WORD (RDCTLO) FOR MAINTENANCE MODE. 


DIABLK, DIAEXT, WRPLO, WRPHI 
RS=DIABLK INDEX. 


#DIABLK*DIAEXT,R5 
.B= #WRPLO 


“IMPLICIT INPUTS: 


;OUTPUTS: 
PEINIT:: MOV 
LET =-(R5) 
MOVB WWRPHI,-(R5) 
MOVB #RD.MAIL,-(R5) 
RTS PC 


;SAVE ADR OF 


;SO0 WE CAN FILL 
;LOAD THE NEW WRAP TASK ADDR LO 


;LOAD WRAP TASK 
;SET MAINT MODE 


LAST WORD IN DIABLK 


DIABLK IN REVERSE ORDER. 


ADDR Hl. 
IN RDCTLO. 


MOVB 


#WRPLO,-(R5) 


a eee ee 
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GLOBAL AREAS 


CZ1S1B.P11 19-AUG-79 20:26 SEQ 0074 
1657 ;S/R TO LOAD THE DIABLK WITH THE ALL 1°S PREAMBLE CHARACTER AND 2 BYTES 
1638 ;OF DATA AND CONTROL. IT ALSO LOADS THE EXPECTED UNDESKEWED DATA IN THE 
tes ;FORMATTER AND WRITE CONTROL REGISTERS. 

1641 ; INPUTS: R2=PREAMBLE ALL 1°S CHARACTER. 

1642 ; R35=1ST BYTE OF DATA 

1645 ; RG=2ND BYTE OF DATA 

ae ; CALLS: PELOAD SUBROUTINE 

1646 016176 010237 002432 PEDATA:: MOV R2, TEMP! ;SETUP TO LOAD DIABLK PREAMBLE 

1647 016202 0047357 016534 JSR PC ,PELOAD ;00 IT 

1648 016206 010337 002432 MOV R3,TEMP1 ;SETUP TO LOAD DIABLK & IST DATA BYTE 
1649 016212 004737 016534 JSR PC ,PELOAD ;D0 IT 

1650 016216 010437 002432 MOV R4,TEMP 1 ;SETUP TO LOAD DIABLK WITH 2ND DATA BYTE 
a 016222 004737 016334 JSR PC ,PELOAD ;D0 IT 

eae ;LOAD THE EXPECTED RESULTS. 

1655 016226 013737 002416 002342 4$: MOV DIKIDN,EXTRAC ;IDENTIFY DEAD TRACKS. 

1656 016234 005137 002342 COM EXTRAC ;ALL TRACKS NOT DEAD ARE ACTIVE. 

1657 016240 042737 177000 002342 BIC #177000,EXTRAC ;CLR GARBAGE. 

1658 016246 013737 002416 002346 MOV DIKIDN,EXTRDD ; TRACKS DEAD DEFINED IN DTKIDN REG. 

1659 016254 012737 000777 002536 MOV #777 ,EXORDY ;OUTPUT READY HI ON ALL TRACKS. 

1660 016262 010337 002544 MOV R3,EXDATA ;EXPECTED DATA INFO (NOT SO FOR SKEW TEST) 
1661 016266 043737 002416 002544 BIC DIKIDN,EXDATA ;ZERO THE DATA CORRESPONDING TO THE DEAD TRACKS. 
1662 016274 013737 002416 002540 MOV DIKIDN,EXIDTR ;EXPECTED ONES OR DEAD TRK INFO. 

1665 016302 050337 002540 BIS R3,EX1DTR 

1664 016306 005103 COM R53 + ;COMPLEMENT DATA. 

1665 016310 013737 002416 002550 MOV DIKIDN,EXODTR ;EXPECTED 0 OR DEAD TRK INFO. 

1666 016316 050337 002550 BIS R3,EXODTR 

1667 016322 005105 COM R5 ;RESTORE R35. 

1668 016324 042737 177000 002550 BIC #177000,EX0DTR ;CLR GARBAGE. 

1669 016332 000207 RTS PC ; RETURN 
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;S/R TO LOAD CONTENTS OF TEMP1 INTO THE DIABLK BY GENERATING THE TWO 
eae thices, DATA AND CONTROL. THE ROUTINE ALSO LOADS DATA TO SIMULATE 


SEQ 0075 


INPUT: TEMP1=DATA TO LOAD. 
R5=DIABLK INDEX 


DIKIDN=DEAD TRACK IDEN REG. 
CLOBBERS TEMPO,k1,TEMP1 


OUTPUT: UPDATED DIABLK DATA 
UPDATED DIABLK INDEX 


;NOTE THAT A LOGICAL ‘'1'' IS SENT TO THE TSO4 AS A 1 TO O TRANSITION. 
;LIKEWISE, THE TSO4 INTERPRETS A 0 TO 1 TRANSITION AS A LOGICAL O. 

; THEREFORE, A LOGICAL 1 HAS A 1 BIT CELL FOLLOWED BY A O BIT CELL, AND 
;LOGICAL 0 CONSISTS OF AO BIT CELL FOLLOWED BY A 1 BIT CELL. THE FIRST 
;PASS OF THIS SUBROUTINE LOADS THE FIRST BIT CELL, WHILE THE SECOND PASS 


;LOADS BIT CELL 2. 
;DEAD TRACK BIT CELLS ARE EITHER BOTH O OR BOTH 1. (NO TRANSITION.) 


1=DEAD; O=LIVE. 





a ee ee ee ee ss ee Sr Ld 
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016334 012701 000044 PELOAD:: MOV WIS.NRZ'IS.WRF,R1 ; INIT CONTROL WORD STORAGE REG 
016340 113745 0024352 1$: MOVB TEMP1,-(R5) ;LOAD DATA WORD (BIT CELL) 
016344 000301 SWAB R ;LOAD THE 
016346 153701 002432 BISB TEMP1,R1 ;DATA WORD IN R1 ALSO TO 
016352 000501 SWAB R1 ;GENERATE PARITY. 
016354 032737 000400 002432 BIT #B118, TEMP ;WHAT ABOUT PARITY TRACK. SET? 
0163562 001402 BEQ 2$ ;BR IF NOT 
016364 052701 000020 BIS #1S.DAP,R1 ;1F SO, SET THE BIT IN THE CNTRL WORD. 
016370 004737 015546 2$: JSR PC ,ODDPAR ;CALCULATE ODD PARITY. RESULT iN TEMPO BIT 1 
016374 005737 002430 TST TEMPO ;PARITY BIT SET? 
016400 001402 BEQ 3$ ;BR IF NOT 
016402 052701 000200 BIS #1S.PAR,R1 ;1F SO SET PARITY BIT FOR BOTH THE 
;DATA AND CONTROL WORD. 
016406 110145 3$: MOVB R1,-(R5) ;LOAD THE CNTRL WORD (BIT CELL) 
016410 005737 002432 TST TEMP) ;DONE WITH PASS 2? 
016414 100432 BM] 4$ ;BR IF SO 
016416 005737 002416 TST DIKIDN ;LOOKING FOR ANY DEAD TRACKS? 
016422 001424 BEQ 5$ ;BR IF NOT. 
;XOR THE DATA WITH THE DEAD TRACKS SO NO TRANSITIONS OCCUR ON 
;THE DEAD TRACK BIT CELLS. 
;XOR = (A)(NOT B) + (NOT A)(B) = NOT(A # NOT B) + NOTC(NOT A + B) 
016424 013737 002432 002450 MOV TEMP1, TEMPO ;SAVE ARG A, 
016452 013701 002416 MOV DTKIDN,R1 ; SAVE ARG B. 
016436 005137 002430 COM TEMPO ; INVERT ARG A, 
016442 005101 COM RI ; INVERT ARG B. 
016444 053701 002432 BIS TEMP1,R1 ;GENERATE (A) + (NOT B) 
016450 053737 002416 002450 BIS DIKION, TEMPO ;GENERATE (NOT A) * (B) 
016456 005137 002450 COM TEMPO ; INVERT 
016462 005101 COM RI ; INVERT 
016464 053701 002430 BIS TEMPO, R RI ;OR THE TWO ARGUMENTS TO GIVE THE XOR, 
016470 010137 002432 MOV R1, TEMP] ;TEMP1 = TEMP! XOR DIKIDN 
016474 005137 002432 5$: COM TEMP | ;SET UP TO LOAD BIT CELL 2. 


ea 
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1727 016500 000715 BR PELOAD :D0 IT | 
1728 016502 000207 4$: RTS PC * RE TURN 
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CZ1S1B.P11 19-AUG-79 20:26 GLOBAL SUBROUTINES SECTION SEQ 0077 
1730 :S/R TO RETRIEVE THE 1S04 FORMATTER AND WRITE CONTROL REGISTERS AND 
Pes :CHECK TO SEE IF THEY CONTAIN EXPECTED DATA. 
1733 ; INPUTS: EXPECTED DATA PREVIOUSLY SET UP IN PEDATA SUBROUTINE 
He : MSGPKT = TS04 MESSAGE PACKET. 
tee ; OUTPUT: ERROR FLAG, ACTUAL DATA 
ft. >CLOBBERS R5.R1 
1740 016504 PEERCK:: INCR R1 FROM #0 TO #12 BY #2 
1741 016504 005001 CLR RI 
1742 016506 000402 BR 50035$ 
1743 016510 50036$: 
1744 016510 062701 000002 ADD #2,R1 
1745 016514 50035$: 
1746 016514 020127 000012 CMP R1,#12 
1747 016520 003003 BGT 50037$ 
1748 016522 LET ACTIBL(R1) := #0 CLEAR 6 LOC OF ACTUAL WRAP REG TABLE 
1749 016522 005061 002354 CLR ACTTBL(R1) 
1750 016526 END INC 
1751 016526 000770 BR 50036$ 
1752 016530 500378: 
se 
1755 016530 113737 002264 002354 MOVB MSGPKT+C18$OR,ACORDY ;ACTUAL OUTPUT READY INFO 
1756 016536 113737 002265 002356 MOVB MSGPKT+C18$1D,ACIDTR ;ACTUAL 1°S OR DEAD TRACK INFO. 
1757 016544 113737 002267 002360 MOVB MSGPKT+C18$TA,ACTRAC ;ACTUAL TRACK ACTIVE INFO 
1758 016552 113737 002270 002362 MOVB MSGPKT+C18$DA,ACDATA ;ACTUAL DATA INFO 
1759 016560 113737 002271 002364 MOVB MSGPKT+C18$TD,ACTRDD ;ACTUAL TRACK DEAD INFO 
1760 016566 113737 002272 002366 MOVB MSGPKT+C 18800, ACODTR ;ACTUAL 0 OR DEAD TRACK INFO. 
1761 016574 LET TEMP2 :B= MSGPKT+PRCHST GET THE TRK ACT DATA FOR CHAN 9 
1762 016574 113737 002274 002434 MOVB MSGPKT+PRCHST,TE 
1763 016602 012737 000006 002432 MOV #6, TEMP1 : INIT COUNTER 
1764 016610 012701 002354 MOV #ACTTBL,R1 “SET INDEX OF THE FORMATTER AND 
1765 “WRITE CONTROL REG., TABLE. 
1766 016614 006237 002434 1$: ASR TEMP2 SHIFT CHAN 9 DATA INTO CARRY BIT 
1767 016620 103003 BCC 2$ -BR IF DATA WAS CLR. 
1768 016622 052721 000400 BIS #B1T8,¢(R1)+ -1F DATA WAS SET THEN SET THE CHAN 9 
1769 -BIT IN THE APPROPRIATE ‘‘ACTUAL"’ REG. 
1770 016626 000402 BR 3$ 
1771 016630 042721 000400 2$: BIC #B118,(R1)+ :1F CLR, THEN CLR THE CHAN 9 BIT IN 
1772 THE APPROPRIATE ‘‘ACTUAL'’ REG. 
1773 016634 005337 002432 3$: DEC TEMP 1 DONE CHECKING ALL THE NEEDED BITS? 
He 016640 001365 BNE 1$ >BR IF NOT 
1776 NOW COMPARE THE ACTUAL & EXPECTED DATA AND SET THE ERROR FLAG 
44k -1F WE HAD AN INVALID COMPARISON, 
1 
1779 016642 012701 002336 MOV #EXPTBL,R1 >SAVE “ACTUAL'' TABLE INDEX 
1780 016646 012737 000006 002432 MOV #6, TEMP > INIT COUNTER 
1781 016654 4$: LET RS := (RI) XOR 16(R1) 
1782 016654 011105 MOV (R1),R5 
1783 016656 016146 000016 MOV 16(R1),-(SP) 
1784 016662 040516 BIC RS, (SP) 
1785 016664 046105 000016 BIC 16(R1),R5 
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If RS NE #0 THEN 


INC ERRFLG 
ENDIF 


LET 34(R1) := 34(R1) SET.BY RS 
:= R1 + #2 


LET RI 


DEC 
BNE 
RTS 


DONE 
BR ] 


50040$: 


CHECKNING ALL DATA? 
F NOT 


BIS 


TST 
BEQ 


BIS 
ADD 


(SP)+,R5 


R5 
50040$ 


R5,54(R1) 
#2,R1 


SEQ 0078 
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1801 :S/R TO SETUP THE DIABLK IN SUCH A WAY THAT WILL ENABLE THE ROM 
te | ;LOOKUP TABLE LOCATION, SPECIFIED IN ROMLKI, TO BE EXAMINED. 
1804 -10.0 ADDRESS BITS ARE NEEDED TO ADDRESS THE ROM FROM 0-1777. THE 9 LOW 
1805 :GRDER ROM ADDRESS BITS ARE GATED FROM THE TRACK ACTIVE DATA WHILE THE 
ee -MSB OF THE ROM ADDRESS IS GATED FROM THE VERTICAL PARITY ERROR (VPE). 
1808 -THIS S/R LOADS THE DIABLK WITH AN ALL 1'S PREAMBLE; CAUSES A vPE TO SET 
1809 OR CLEAR IN BYTE 1 DEPENDING ON THE STATE OF ROMLKI] (BIT 9); AND CAUSES 
eee -DEAD TRACKS IN BYTE 2 CORRESPONDING TO BITS 0-8 OF ROMLKI. 
1812 
1813 016722 005037 002416 ROMLOK:: CLR DTKIDN CLR DEAD TRACK REG. 
1814 016726 012737 000777 002432 MOV #777, TEMP -SET UP TO LOAD ALL 1'S PREAMBLE 
1815 016734 004737 016334 JSR PC ,PELOAD LOAD PREAMBLE & CONTROL. 
1816 016740 032737 001000 002420 BIT #B119,ROMLKI -MSB OF ROM ADDR SE’? 
1817 016746 001403 BEQ 1$ -BR IF NOT 
1818 01675y 005037 002432 CLR TEMP 1 CAUSE VPE=1. 
et” 016754 000403 BR o$ - CONTINUE 
1821 016756 012737 000777 002432 18: MOV #777, TEMP) : CAUSE vPE=-0. 
1822 016764 004737 016334 2$: JSR PC ,PELOAD >LOAD BYTE 1 + CNTRL. 
1823 010770 005037 002432 CLR TEMP 1 INIT TEMP1. 
1824 016774 013737 002420 002416 MOV SORE DIKIDN :LOAD ROM ADDR IN DEAD TRACK REG. 
1825 017002 005137 002416 COM DTK : INVERT IT. 
1826 017006 042737 177000 002416 BIC. #177000. DIKIDN :CLR GARBAGE. MSB ADDRESS 
1827 -WAS TAKEN CARE OF IN BYTE 1. 
1828 017014 004737 616334 JSR PC ,PELOAD “LOAD BYTE 2 DATA AND CONTROL. 
1829 017020 000207 RTS PC >RETURN. 
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1830 ;S/R TO GENERATE THE EXPECTED ROM LOOKUP TABLE OUTPUT FROM THE ADDRESS 
1831 > IN ROMLKI. 

1832 ; 

1853 ; INPUTS: ROMLK1 = ROM ADDRESS 

1834 ; OUTPUTS: EXROML = EXPECTED ROM LOOKUP TABLE OUTPUT. 
bt ; CLOBBERS: TEMPO, R11, R2 

H+ $14 >THE ROM CONTENTS ARE SHOWN IN THE FOLLOWING TABLE: 

1839 : 

1840 sOUTPUT ADDRESSES WHICH ASSERT* COMMENTS 

1841 ; AAAAAAAAAA . 

1842 ; 9876545210 

1843 fn ne een nee ene eee e nsec eee eeeeesesece= 
1844 ° 

1845 ;MULT (MSB) Joorceoeee= X = DON'T CARE. MULT = 1 IF 
1846 ; ANY 2 ADDRESS LINES (OTHER 
1847 : THAN AQ) ARE 1. 

1848 ; 

1849 ; RDTMK XXX0100X11 X = DON'T CARE. 

ace : X110xX001XX 

1852 > PREAM XAACBCCABB = DON'T CARE. MUST HAVE AT 
1853 ; LEAST ONE OF A&B&C. MUST 
ace . HAVE ALL OF A OR B OR C. 

4 4 :9 OF 9 K111111111 X = DON'T CARE. 

+493 :0 OF 9 x000000000 = DON'T CARE. 

1860 :COR DATA 1000000001 

1861 : 1000000010 

1862 ; 1000000100 

1863 : 1000001000 

1864 : 1000010000 

1865 ; 1000100000 

1866 : 1001000000 

1867 ; 1010000000 

1868 : 

+ yo ; INCOR DATA 1000000000 

1871 :8 OF 9 (LSB) X1171117111 = DON'T CARE. 

1872 ; X111111110 

1873 : ¥111111101 

1874 : K111111011 

1875 : ¥111110111 

1876 : X111101111 

1877 : ¥111011111 

1878 : X110111111 

1879 : X101111111 

1880 : KXO11171111 

1881 ; 

1882 > = AQ-A7? = MUX 2(0)-2(7) 

1885 . A® = MUX PARITY 

1884 ’ AJ = LATCHED PARITY ERROR 
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ess 017022 005037 002352 ROMEX:: CLR E XROML - INIT. EXPECTED ROM REG. 
+ +44 :CHECK FOR 8 OF 9. 
1889 017026 012702 000001 XB8OF9: MOV #1,R2 : INIT O'S CNTR. 
1890 017032 012737 000011 002430 MOV #11, TEMPO :LOAD BIT CNTR. NOT INTERESTED IN BITIO. 
1891 017040 0137 002420 MOV ROMLKI,R1 -SAVE ROM TABLE ADDRESS 
1892 017044 000241 1$: CLC CLR CARRY TO PREPARE FOR SHIFT 
1893 017046 006201 ASR R1 -SHIFT 17. WAS IS A 1? 
1894 017050 103401 BCS 2% “BR IF SO 
1895 017052 005302 ' DEC R2 “DECR O CNTR. 
1896 017054 005337 002430 2$: DEC TEMPO -DECR BIT CNTR DONE? 
1897 017060 001371 BNE 1$ -BR IF NOT 
1898 017062 005702 TST R2 :8 OF 
1899 017064 100403 BM] XCORDA -BR IF NOT 
1e08 017066 052737 000001 002352 BIS #.80F9,EXROML ;1F SO, SET THE BIT 
ba >CHECK FOR CORRECTABLE DATA 
1904 017074 032737 001000 002420 xXCORDA: BIT #A9,ROMLKI :COULD THIS BE CORRECTABLE DATA 
1905 017102 001427 BEQ XINCOR -BR IF NOT 
1906 017104 032737 000400 002420 BIT #A8,ROMLK1 -COULD THIS BE CORRECTABLE DATA? 
1907 017112 0601023 BNE X INCOR ;BR IF NOT. 
1908 017114 012702 000002 MOV #2,R2 “INIT 1°S CNTR. 
1909 017120 012737 000012 002430 MOV #12, TEMPO -LOAD BIT CNTR. NOT INTERESTED IN MSB. 
1910 017126 013701 002420 MOV ROMLKI,R1 :SAVE ROM TABLE ADDR. 
1911 017132 000241 1$: cic - INIT CARRY TO PREPARE FOR SHIFT. 
1912 017134 006201 ASR R1 “SHIFT IT. WAS IT A 1? 
1913 017136 103001 BCC 2$ “BR IF NOT 
1914 017140 005302 DEC R2 ;DECR. 1°S CNTR. 
1915 017142 005337 002430 2$: DEC TEMPO DECR BIT CNTR. DONE? 
1916 017146 001371 BNE 1$ BR IF NOT 
1917 017150 005702 TST R2 :CORRECTABLE DATA? 
1918 017152 001003 BNE XINCOR :BR IF NOT 
248 017154 052737 000004 002352 BIS #.CORD,EXROML =;I1F SO, SET THE BIT. 
oes -CHECK FOR INCORRECTABLE DATA 
1923 017162 022737 001000 002420 XINCOR: CMP #1000,ROMLK] : INCORRECTABLE DATA? 
1924 017170 001003 BNE XOOF9 “BR IF NOT 
+53 017172 052737 000002 002352 BIS #.INCOR,EXROML ;1F SO, SET THE “‘INCOR'' BIT. 
1926 
oer >CHECK FOR O OF 9 
1 
1929 017200 032737 000777 002420 xOOF9: BIT #777,ROMLK1 :0 OF 9? 
1930 017206 001003 BNE X90F9 -BR IF NOT 
+e}! 017210 052737 000010 002352 BIS #.00F9,EXROML ;:I1F SO, SET THE BIT. 
1933 >CHECK FOR 9 OF 9 
1934 
1935 017216 022737 000777 002420 Xx90F9: CMP #777,ROMLKI :-9 OF 9? 
1936 017224 001404 BEQ 1$ :BR IF SO 
1937 017226 022737 001777 002420 CMP #1777,ROMLK] :9 OF 9? 
1938 017234 00.003 BNE XMULT “BR IF NOT 
4494 017236 052737 000020 002352 18: BIS #.90F9,EXROML -SET THE BIT. 
194 
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002430 


002352 


002430 


002430 


002430 


002552 


XMULT: 


1$: 


2$: 


XPREAM: 


6$: 


7$: 


>CHECK FOR MULTIPLE TRACKS 


MOV #1,R2 ; INIT 1° ° CNTR 

MOV #11, TEMPO LOAD BIT CNTR. 
MOV ROMLKI,R1 : SAVE ROM TABLE ADDR 
CLC > INIT CARRY TO PREPARE FOR SHIFT. 
ASR R1 SHIFT IT WAS IT A 1? 
BCC 2% “BR 1F NOT 

DEC 2 :DECR 1°S CNTR. 

DEC TEMPO :DECR BIT CNTR. DONE? 
BNE $ :BR IF NOT 

TST R2 sMULTIPLE TRACKS? 

BPL XPREAM :BR IF NOT 

BIS #.MULT,EXROML :1F SO, SET BIT BIT 


;CHECK FOR PREAMBLE 
s ADDR LINES 9876543210 


XAACBCCABB 

: PREAM= 1 IF HAVE ONE OF 1 AND 

‘ ALL OF A OR B OR = 0 OR 1. 
CLR R2 
MOV ROMLK1,R1 ;SAVE ROM TABLE ADDRESS. 
MOV R1, TEMPO ;GENERATE THE 

COM TEMPO ;COMPLIMENT OF THE ADDR. 
BIT WAB!A7!A2, TEMPO ;ALL OF GROUP A? 
BNE 1$ ;BR IF NOT 
BIS WBITO'BIT3,R2 ;SET ‘ALL OF A‘’ AND *'1 OF A” INDICATION 
BR 2$ 
BIT #WAB!A7!A2,R1 ;1 OF GROUP A? 
BEQ 7$ :BR IF NOT - NOT A PREAM 
BIS #B1T0,R2 ;SET ‘'1 OF A’’ INDICATION. 
BIT WAS'A1'AO, TEMPO :ALL OF GROUP B ACTIVE? 
BNE 3$ ;BR IF NOT 
BIS MBITIIBITS,R2 ;SET “ALL OF BY’ + “1 OF B”. 
BR 4$ ; CONTINUE 
BIT #WAS!A1!A0,R1 :""| OF BY’ ACTIVE. 
BEQ 7$ :BR IF NOT - NOT A PREAM. 
BIS #BIT1,R2 ;SET “'l OF B’’ INDICATION. 
B1T WAG'AG'AS, TEMPO ;ALL OF GROUP C ACTIVE? 
BNE 5$ ;BR IF NOT 
BIS #BITZ2'E. 3,R2 ;SET ALL OF C AND 1 OF C 
BR 6$ ; INDICATION. 
BIT #AG'AG!A3S,R1 :1 OF C? 
BEQ 7$ ;BR IF NOT-NO PREAMBLE 
BIS #B1T2,R2 ;SET 1 OF C INDICATION. 

;IN ORDER FOR THE PREAMBLE CONDITION TO BE TRUE, R2 MUST CONTAIN 


;17 AT THIS POINT. 

CMP #17,R2 ; PREAMBLE? 

BNE 7$ ;BR IF NOT 

BIS #.PREAM,EXROML ;1F SO, SET THE PREAMBLE BIT IN 
- sEXPECTED LOOKUP TABLE REG. 

N 
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XRDF MK: 


002430 

002430 

002552 2%: 
3$: 


SEQ 0085 


;CHECK FOR READ FILE MARK PATTERN 


;ADDR LINES 


;RDFMK=1 


ROMLKI,R1 

R1, TEMPO 

TEMPO 
eisai 
 ghintahiane: | 
ghana 
#.RDFMK ,EXROML 


PC 


98765432 
IF XXX0100X11 = CONDITION 1 
Xi 10X001XX - CONDITION 


10 


2 


:SAVE ROM TABLE ADDR. 
:GENERATE THE 
;COMPLIMENT OF THE ADDR. 
:CHECK THE 0°S IN COND 1 AND COND 2. 
:BR IF COND 1 AND COND 2 NOT TRUE 
;CHECK 1°S IN COND 1. 
:BR IF COND 1 IS TRUE 
sCHECK 1°S IN CONDITION 2 
:BR IF COND 2 IS FALSE 
-WE ARE READING A FILE MARK. 
-SET APPROPRIATE BIT. 
> RETURN 


ee te er oe eee we ewe 
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2017 ;S/R TO RETRIEVE THE ACTUAL ROM LOOKUP TABLE OUTPUT AND COMPARE I! 
sate sWITH THE EXPECTED OUTPUT. 
2020 ; INPUT: EXROML - EXPECTED ROM OUTPUT. 
soS3 : MSGPKT - 1504 MESSAGE PACKET. 
2023 ; OUTPUT: ERRFLG = ERROR FLAG 
2024 : ACROML = ACTUAL ROM OUTPUT. 
2025 ; 
2026 ; 
2027 
2028 017550 ROMCK:: LET ACROML :B= MSGPKT+*ROMSLK -GET THE ACTUAL ROM OUTPUT 
2029 017530 113737 002273 002370 MOvVB MSGPKT+*ROM$LK,AC 
2030 017536 123737 002370 002352 CMPB ACROML ,EXROML :ARE THEY THE SAME. 
2031 017544 001402 BEQ 1$ ;BR IF SO 
2032 017546 005237 002436 INC ERRFLG > 1—F NOT SET THE ERROR FLAG 
2033 017552 000207 1$ RTS PC 
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2034 . | 
2035 
2036 ; SUBROUTINES MSORT 1 AND MSORT2 SELECT BAD BOARD. -—R TESTS 4 = 7 PER 
2037 : TABLE BELOW WHERE: 
2038 : 
2039 ; 22 = M8922 57 = 6157 
2040 : 24 = M8924 23 = M8923 
2041 : 
2042 : 
2043 5 bee ewww nee eee enn eee nnn wenn wwe ence eens neeccee= + 
caee ; BAD BOARD SELECTION TABLE : 
oe ; } R5 BD/SLOT/BITS MASK PRINTB MSG 
2048 = 0 22/7/0-8 FMTCTR 
2049 = 1 24/6/0,1,2 R2=7 FMTCH6 
2050 p34 2 24/5/3,4,5 R3=70 FMTCHS ! 
2051 By 3 24/4/6,7,8 R4=700 FMTCH4 
2052  & 400 57/2/0,1,5,6 R2=143 RDCH2 ! 
2053 . 4 1000 §7/1/2,3,4,7 R3=234 RDCH1 
2054 os 1400 23/3/8 : R4=400 RDCHP3 
2055 I te + 
2056 
Soee ; TEST & == MODULE SORT 
2059 017554 005037 002432 MSORT1:: CLR >TEPM1=BOADS 24 SELECTION FLAG 
2060 017560 LET R2 : AND #7 :R2=BOARD 24/6 MASK 
2061 017560 010102 R1,R2 
2062 017562 010246 R2,-(SP) 
2063 017564 042716 000007 #7, (SP) 
2064 017570 042602 (SP)+,R2 
2065 017572 LET R3 := R1 AND #70 :R3=BOARD 24/5 MASK 
2066 017572 010103 R1,R3 
2067 017574 010346 R3,-(SP) 
2068 017576 042716 000070 #70, (SP) 
2069 017602 042603 (SP)+,R3 
2070 017604 LET RG := R1 AND #700 :R4=BOARD 24/4 MASK 
2071 017604 010104 R1.R4 
2072 017606 010446 R4,-(SP) 
2073 017610 042716 000700 #700, (SP) 
2074 017614 042604 (SP)+,R4 
2075 017616 LET RS : >R5=BOARD 22/7 FLAG 
2076 017616 005005 CLR R5 
2077 017620 004737 020372 JSR PC ,PAIRST :SORT 22 AND 24 BOARDS, RESULT IN RS LO BYTE 
2078 017624 1—f RS EQ #0 THEN 
2079 017624 005705 Bb) 
2080 017626 001011 BNE 50041$ 
2081 017630 PRINTB #FMICTR :22 BOARD SELECTED, CALL BAD 22/7 
2082 0174%0 012746 005062 MOV #FMTICTR,-(SP) 
2083 017634 012746 000001 #1 ,-(SP) 
2084 017640 010600 SP ,RO 
2085 017642 104414 C$PNIB 
2086 017644 062706 000004 #4 SP 
2087 017650 ELSE :24 BOARD SELECTED, CONTINUE SORTING 
2088 017650 000561 4 
2089 017652 
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000001 
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LET R2 := R1 AND #145 


LET R3 := R1 AND | 234 


LET R&4 := R1 AND #400 


LET RS := SWAP R5 
JSR PC,PAIRST 


LET R5 := SWAP R5 
IF RS EQ #1 THEN 
PRINTB #FMTICH6 ;CALL BAD 24/6 
ELSE 
IF RS EQ #2 THEN 
PRINTB #FMTCHS ;CALL BAD 24/5 
ELSE 


1F RS EQ #3 THEN 


PRINTB #FMTCHS ;CALL BAD 24/4 


ELSE 


:R2=BOARD 57/2 MASK 


;R3=BOARD 57/1 MASK 


;R4=BOARD 23/3 MASK 


;SORT 57 AND 23 BOARDS, 
;ANALYZE R5 LO BYTE 


500438: 


500458: 


SEQ 0086 


R1,R2 

R2,-(SP) 
#1435, (SP) 
(SP)+,R2 


R1,R5 

R3,-(SP) 
#234, (SP) 
(SP)+,R3 


R1,R4 

R4,-(SP) 
#400, (SP) 
(SP)+,R4 


SWAB R5 
RESULT IN R5 HI BYTE 


SWAB 


BR 
50047$: 


R5 


R5,#1 
5004 3$ 


#FMTCHO,-(SP) 


#4 ,SP 

50044$% 

R5 M2 

50045$ 
#FMTCHS,-(SP) 


#4 ,SP 

50046$ 

RS #5 

50047$% 

WEMTCHG,=-(SP) 
) 
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P11 19-AUG-79 20:26 SEQ 0087 
020030 005237 002432 INC TEMP) : TEPM] NOT=0 WHEN NO BAD 24 WERE CALLED 
020034 ENDIF 

21 020034 5005U$: 

2149 020034 ENDIF 

2150 020034 50046$: 

2151 020034 ENDIF 

2152 020034 50044$: 

2153 020034 1— TEMP1 NE #0 THEN -1F NO BAD 24 BOARDS CALLED, CONTINUE SORT 
2154 020034 005737 002432 TST TEMP 1 
2155 020040 001465 BEQ 50051$ 
2156 020042 LET R1 := ACTRK1 OR ACTRK3 ;ANALYZE TRACK INACTIVE SUBTSTS RESULTS 
2157 020042 013701 002406 MOV ACTRK1,R1 
2158 020046 055701 002412 BIS ACTRK3,R1 
2159 020052 1F R1 NE #0 THEN >R1 NOT=0, TRACK INACTIVE FAILED 

2160 020052 005701 TST R1 

2161 020054 001430 BEQ 50052$ 
2162 020056 LET R1 := RS :SAVE R5 

2163 020056 010501 MOV R5,R1 
2164 020060 LET RS := RS AND #3 :KEEP 2 LSB'S 

2165 020060 010546 MOV R5,-(SP) 
2166 020062 042716 000003 BIC #3, (SP) 
2167 020066 042605 BIC (SP)+,R5 
2168 020070 004737 020440 JSR PC,FMTSEL :CALL APPROPRIATE BAD 24 

2169 020074 PRINTB #FMICTR  ;CALL BAD 22 

2170 020074 012746 005062 MOV #FMTCTR,-(SP) 
2171 020100 012746 000001 MOV #1,-(SP) 
2172 020104 010600 MOV SP,RO 
2173 020106 104414 TRAP C$PNTB 
2174 020110 062706 000004 ADD #4,SP 
2175 020114 LET RS := SWAP RI sFETCH RS HI BYTE 

2176 020114 010105 MOV R1,R5 
2177 020116 000305 SWAB RS 

2178 020120 LET RS := R5 AND #3 ;KEEP 2 LSB'S 

2179 020120 010546 MOV R5,-(SP) 
2180 020122 042716 000003 BIC #3, (SP) 
2181 020126 042605 BIC (SP)+,R5 
2182 020130 004737 020562 JSR PC,RDCSEL >CALL APPROPRIATE BAD 57/23 

2183 020134 ELSE -R1=0,TRACK INACTIVE DID NOT FAIL 

2184 020134 000427 KR 5005 3$ 
2185 020136 50052$: 

2186 020136 LET R1 := R5 :SAVE R5 

2187 020136 010501 MOV R5,R1 
2188 020140 LET RS := SWAP RS 

2189 020140 000305 SWAB RS 

2190 020142 LET RS := RS AND #3 :KEEP 2 LSB'S OF HI BYTE 

2191 020142 010546 MOV R5,-(SP) 
2192 020144 042716 000003 BIC #3, (SP) 
2193 020150 042605 BIC (SP)+,R5 
2194 020152 004737 020562 JSR PC,RDCSEL >CALL APPROPRIATE BAD 57/25 

2195 020156 LET RS := R1 AND #3 -FETCH 2 LSB'S OF RS LO BYTE 

2196 020156 010105 MOV R1,R5 
2197 020160 010546 MOV RS,-(SP) 
2198 020162 042716 000003 BIC #3, (SP) 
2199 020166 042605 BIC (SP)+,R5 
2200 020170 004737 020440 JSR PC,FMTSEL >CALL APPROPRIATE BAD 24 

2201 020174 PRINTB #FMICTR ;CALL BAD 22 





AREAS 
P11 


020174 


020214 


MACY11 50(1 


19-AUG-7 


012746 
012746 
010600 
104414 
062706 


000207 


005062 
000001 


000004 


046) 
9 20:26 
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END If 


ENDIF 
ENDIF 
RTS 


PC 


50053$: 
50051$: 
50042$: 


SEQ 0088 
MFMTCTR,-(SP) 
#1,-(SP) 

SP ,RO 
CSPNTB 
#4 ,SP 


© oy 
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P11 19-AUG-79 20:26 GLOBAL SUBROUTINES SECTION SEQ 0089 
; TEST 5 = 7 == MODULE SORT 
020216 MSORT2:: IF R1 NE #0 THEN sERROR FROM 24 BOARDS, WHICH ONE? 
020216 005701 TST R1 
020220 001442 BEQ 50054S 
020222 LET R2 := R1 AND #7 :R2=24/6 MASK 
020222 010102 MOV R1,R2 
020224 010246 MOV R2,-(SP) 
020226 042716 000007 BIC #7, (SP) 
020232 042602 BIC (SP)+,R2 
020234 LET R3 := R1 AND #70 >R3=24/5 MASK 
020234 010103 MOV R1,R5 
020236 010346 MOV R3,-(SP) 
020240 042716 000070 BIC #70, (SP) 
020244 042603 BIC (SP)+, R3 
020246 LET RS := R1 AND #700 *R4=24/4 MASK 
020246 010105 MOV R1,R5 
020250 010546 MOV R5,-(SP) 
020252 042716 000700 BIC #700, (SP) 
020256 042605 BIC (SP)+,R5 
020260 LET RS := #0 >R5=22/7 FLAG 
020260 005005 CLR R5 
020262 004737 020372 JSR PC,PAIRST :SOPT 22 AND 24 BOARDS 
020266 IF RS EQ #0 THEN ; 
020266 005705 TST R5 
020270 001011 BNE 50055$ 
020272 PRINTB #FMTICTR  ;CALL 22/7 
020272 012746 005062 MOV #FMTCTR,-(SP) 
020276 012746 000001 MOV #1,-(SP) 
020302 010600 MOV SP,RO 
020304 104414 TRAP C$PNTB 
020306 062706 900004 ADD #4,SP 
020312 ELSE 3:24 SELECTED, WHICH ONE? 
020312 O000eu6 KR 50056$% 
020314 500558: 
020314 004737 020440 JSR PC,FMTSEL >CALL APPROPRIATE 24 
020320 004737 020334 JSR PC,DTRCHK >CHECK OR FUNCTION OF 22 
020324 ENDIF 
020324 500568: 
020324 ELSE 
020324 000402 fe 50057$ 
020326 500548: 
020326 004737 020334 JSR PC,DIRCHK :NO ERROR FROM 24, CHECK OR FUNCTION OF 22 
020332 ENDIF 
020332 500578: 
020332 000207 RTS PC 
>CHECK DEAD TRACK ORING ON 22 BOARD 
020334 DIRCHK: LET R1 := ORIDTR OR ORODTR >GET OR DATA 
020334 013701 002374 MOV ORIDTR,RI 
020340 053701 002404 BIS ORODTR,RI 
020344 If R1 NE #0 THEN 
020344 005701 1ST 


R\ 
020346 001410 BEQ 50060$% 





rormnsfnufnufuTuTUT tO 
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P11 19-AUG-79 20:26 GLOBAL SUBROUTINES SECTION SEQ 0090 
020350 PRINTB #FAMTCTR ;OR DATA BAD, CALL 22 BOARD 
020350 012746 005062 MOV WFMTCTR,-(SP) 
020354 012746 000001 MOV #1,-(SP) 
020360 010600 MOV SP ,RO 
020362 104414 TRAP CSPNTB 
020364 062706 000004 ADD #4 ,SP 
020370 ENDIF 
020370 50060$: 
020370 000207 RTS PC 


GLOBAL 


CZ1S1B.P 


Wun —O O@we VF Wn —- O OOF Wil wo 


WALA Po Po PO PU 


AREAS 


1 


020372 


020436 


020440 
020440 


020460 
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005702 
001407 


005703 
001004 
005704 
001002 


052705 
000411 
005703 


001405 


005704 
001902 


052705 


000402 


052705 


000207 


010546 


003402 
012716 


006316 
000716 


000001 


000002 


000003 


000003 


000004 
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GLOBAL SUBROUTINES SECTION 
;PAIR OF BOARDS SORTING SUBR 


>(R2)(R35) +# (R2)(R4) + (R3)(RG) NEQ 0 <--> R5=0 


“==> R5=1 


: R2 NEQ 0 
0 ===> R5=2 
0 
F 


; R3 NEQ 
; R& NEQ 


PAIRST: 


“==> R5=3 
R2 NE #0 THEN 


l 


1f R35 EQ #0 AND R4 EQ #0 THEN 


LET R5 


ENDIF 
ELSE 


:= RS SET.BY #1 


IF R35 NE #0 THEN 


IF RG EQ #0 THEN 


LET RS 
ENDIF 


ELSE 


LET R5 


ENDIF 
ENDIF 
RTS PC 


:= RS SET.BY #2 


>= RS SET.BY #3 


;FORMATTERS 24 SELECT 
FMTSEL: SELECT RS OF 3 VERIFY 


50062$: 


50061$: 


50065$: 


50064$: 


500668: 
500638: 


50067: 
500708: 


R2 
50061$ 
R53 
50062$ 
R4 
50062$ 
#1 oR5 


500635$ 


R53 
50064$ 
R4 
50065$ 
#2,R5 
50066$ 


#3,R5 


R5,-(SP) 


50067$ 


(SP) #5 


50070$ 
#4, (SP) 


(SP) 
PC, (SP) 


SEQ 0091 


WINWAAa O 


AREAS 
P11 


020462 


020560 


020562 
020562 


020616 
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063607 
000010 


000410 


000207 


010546 
003403 
021627 
003402 


012716 


006316 
060716 
063607 


000010 
000032 
000054 
000074 


005174 
000001 


000004 


005251 


000001 


000004 


005326 


000001 


000004 


000003 


000004 
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CASE 1 
PRINTIB #FMTCH6 


CASE 2 


PRINTB #FMTCHS 


CASE 3 


PRINTB #FMTCHS 


ENDSELECI 

RTS PC 
;READ CHANNEL 57/25 SELECT 
RDCSEL: SELECT RS OF 5 VERIFY 


CASE 1 


50071$: 


50075$: 


50074$: 


500738: 


50072$: 


500768: 
500778: 


501008: 


50104$: 





SEQ 0092 


a(SP)+,PC 


50075$-50071$ 
50074$-50071$ 
50073$-50071$ 
50072$-50071$ 


#FATCH6,-(SP) 
) 


50072$ 


WFMTCHS,-(SP) 
#1,-(SP) 


50072$ 


#FATCH4,-(SP) 
#1 ,-(SP) 


R5,-(SP) 
50076$ 
(SP) ,#5 
50077$ 


#4, (SP) 


(SP) 
PC, (SP) 
a(SP)+,PC 


50104$-50100$ 
50103$-50100$ 
50102$-50100$ 
50101$-50100% 


A 


REAS 


P11 


020616 


020702 
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062706 


000207 


005403 
000001 


000004 


005452 


000001 


000004 


005521 


000001 


000004 
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PRINTB #RDCH2 


CASE 2 


PRINTB #RDCHI 


CASE 3 


PRINIB #RDCHPS 


ENDSELECT 
RTS PC 


501038: 


50102$: 


501018: 


SEQ 9095 


#RDCH2 ,- (SP) 
-(SP) 


#1,-(S 
SP, 

CSPNTB 
#4 ,SP 


50101$ 


#RDCH1,-(SP) 


#1,-(SP) 


C$PNTB 
#4,SP 


50i101$ 


#RDCHPS,-(SP) 


#1,-(SP) 


GLOBAL 
CZ1S1B8 


AREAS 
P11 


020704 


021040 
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017701 
042701 


020127 
001075 


104456 
000023 
003561 
014164 


013701 
000301 


042701 


020127 
001011 


012746 
012746 
010600 
104414 
062706 
000450 
020127 
101034 
042701 
006301 
062701 


111102 
106302 


062702 


011103 
000303 


010346 


042716 
042603 


011246 


161314 
177701 


000016 


002274 


177400 
000337 


027256 
000001 


000004 


000127 


177740 


021116 


021176 


0003577 
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TEST 9, 10 == MODULE SORT 
MSORT5:: LET R1 := @TSSR CLR.BY MTCFCMK ;GET TERMINATION AND ‘eae ae seek 
V 


IF Ri EQ #16 THEN 


ERRHRD 19,MICROE ,MICERR 


LET RI := 


LET RI se 


SWAP XSTATS 


R1 CLR.BY #177400 


If R1 EQ #337 THEN 


PRINTB #COD3357 


IF R1 LOS 


LET R14 : 
LET R1 : 
LET RI : 
LET R2 : 


LET R2 : 
LET R3 : 


LET R3 


REPEAT 


#127 THEN 


R1 CLR.BY #177740 


R1 SHIFT 1 


R1 + #LOOKTB 
(R1) SHIFT 1 


R2 + #CODTBL 


SWAP (R1) 


R35 AND #577 


PRINTB (R2) 


SSR,R1 
BIC #TCFCMK RI 


CMP R1,416 
BNE 50105$ 


TRAP CSERHRD 
~WORD 19 
-WORD MICROE 
-WORD MICERR 


MOV XSTAT3,R1 
SWAB RI 


BIC #177400,R1 


CMP R1,#537 
BNE 50106$ 


#C20, WC=7 


; INPUT MICRO CODE ERROR 


;KEEP 8 LSB'S 


MOV #C0D337,-(SP) 
MOV #1,-(SP) 

MOV SP RO 

TRAP CS$PNTB 

ADD #4 ,SP 

BR 50107$% 


501068: 


CMP R1,#127 
BHI 50110$ 


BIC #177740,R1 
;R1X2 FOR WORD ADDRESSING 
ASL R1 


; INDEX INIO LOOK-UP TBL own 
;GET WORD OFFSET INTO CODTBL FROM LOOKTB 


#LOOKTB,R1 


MOVB (R1),Re 
ASLB Re 


ADD #CODTBL,.R2 
;GET NO OF LINE TO PRINT 


; INDEX INTO CODTBL 


MOV (R1),R5 
SWAB R3 

>FROM LOOKTB 
MOV R3,-(SP) 
BIC #377,(SP) 
BIC (SP)+,R5 


501118: 
;PRINT CURRENT LINE 
MOV (R2), (SP) 


—_— ee ee ee eee - 


GLOBAL 


CZ1S1B.P 


AREAS 


11 
021042 
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012746 
010600 
104414 
062706 
062702 
005303 


005705 
001364 


000411 


000207 


000001 


000004 
000002 


027220 
000002 


000006 
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LET R2 := R2 + #2 
LET R3 := R3 - #1 
UNTIL R3 EQ #0 


ELSE 


PRINTB #CODXXX,R1 


ENDIF 
ENDIF 
ENDIF 
RTS PC 


; THEN THE NEXT, 
& 


501108: 


501128: 
501078: 
50105$: 


R53 
50111$ 
50112$ 
R1,-(SP) 


#CODXXX,-(SP) 
#2,-(SP) 


GLOBAL 
C21S1B 


AREAS 
Pil 


AWA Pf fren 


021174 


Ce Oe Oe oo 
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sMICRO DIAG ERROCR CODE LOOKUP TABLE 
;CODOO THRU COD27 
;COD22, C0023, COD30 AND ABOVE, ARE UNDEFINED 


SEQ 0096 


000 003 LOOKTB: .BYTE 0,3 
03 002 BYTE Be 
005 001 -BYTE 5,1 
006 002 -BYTE 6,2 
010 002 BYTE 10,2 
012 001 BYTE Te 
013 001 BYTE 13,1 
014 001 -BYTE 14,1 
015 003 BYTE 15,3 
020 003 hk. a. = 
023 002 BYTE 23,2 
025 003 -BYTE 25,3 
030 004 BYTE 30,4 
034 004 BYTE 34,4 
040 004 BYTE 40,4 
044 003 BYTE 44,3 
047 002 BYTE 47,2 
051 002 BYTE 51,2 
053 001 BYTE 53,1 
054 001 BYTE 54,1 
055 002 BYTE 55.2 
057 003 BYTE 57.3 
062 003 BYTE 62,3 
065 003 BYTE 65,5 
: [| eeee > NO OF LINES TO PRINT, IN HI BYTE (ODD, 

Sa a > OFFSET IN CODTBL, IN LO BYTE (EVEN) 


~~ mw ee 


GLOBAL 
CZ1S1B 


AREAS 
-P11 


MUTE PMIPI REPO PIP PROP 


021350 


AWA PO ON 
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021556 


026741 


024103 
024417 
024741 


025267 
025534 
025742 


026170 
026534 
026570 
027047 
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021551 


023065 
025265 


023721 
024163 


024503 
025021 
025346 


026410 
026644 
027123 


68 
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;MICRO CODE ERROR AC TABLE 


CODTBL: 


“OFFSET INTO THIS TABLE < 


;NO OF 


. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 


. WORD 
. WORD 


. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 


COD00,CODO0A, 


COD01,CODOTA 
000 


COD02 
COD035,CODO3A 
774 peeling 


CO0D06 
COD07 


0 
COD10,CODIOA, 
COD11,CODIIA, 


COD12,CODI2A 


COD13,COD13A, 
COD14,CODIGA, 


COD15,COD1I5A, 
COD16,CODI6A, 
COD17,CODI7A, 


COD20,COD20A 
COD21,COD21A 
COD22 
COD25 
COD24,COD24A 


COD25,COD25A, 
C0D025,COD26A, 
COD27,COD27A, 


COD000B :0 
:5 
2 
36 
:10 
:12 
313 
214 
COD108 :15 
COD118 326 
3235 
COD13B8 it ¢. 
COD14B,COD14C ; 50 
C0D15B,COD15C 354 
COD16B,COD16C :40 
COD178 244 
347 
so 
°55 
354 
«55 
COD25B 257 
COD26B :62 
COD27B 365 


~WORDS=NO OF LINES TO PRINT <oereeeeeere-eeeee<--- 


-—==— BLA WAR — — fo now , SANE A ee PO PO 


SEQ 0097 


ee ee ee me 


GLOBAL AREAS 
CZ1S1B.P11 


021556 


026644 
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040445 
040445 
045 


5 
040445 
040445 


030061 


044103 
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020060 


041505 


es ee 


SEQ 0098 
142N/ 


69 
GLOBAL SUBROUTINES SECT JN 
>MICRO CODE ERROR MSGS 


LIST BEX : ) 
COD00: “ASCIZ /%A100 BASIC 10 MICRO FAIL:PAR ERR, IOATN,HANDSHAKE, M8967(12) 
CODOOA: .ASCIZ /%A DATA WINDOW TEST BETWEEN 10 AND MAIN MICROS.%N/ 
CODOOB: :ASCIZ /%A SERIAL BUS.SHIN (SHIFT IN) STUCK TRUE,...%N/ | 
COD01: ASCIZ /EAIO1 ERROR IW 10 CONTROL REGISTER TESTSS1S$ANB900(16)  158N/ 
CODOIA: [ASCIZ /%S50%AM8967(12) %N/ 
COD02: “ASCIZ /%A102 FAILURE OF FRAME COUNTER TEST%S17%AM8966(14) — 15%N/ 
COD03: ASCI1Z /%A103 FAILURE OF 10 SILO NON-PARITY ERROR DATA MB8966(16) ——« 16%N/ 
CODO3A: |ASCIZ /%A TEST OR THE WRITE FLAG%S24%AM8963(11)2N/ 
COD04: ASCIZ /%A104 FAILURE OF 10 SILO PARITY ERROR TEST OR MB966(146) «1 7%N/ 
COD0GA: |ASCI1Z /%A | DATA LATE TESTXN/ 
COD0S: “ASCIZ /%A10S FAILURE OF SHIFT LOOP WITH ZEROES%S13%AM8965(15)  20%N/ 
COD06: LASCIZ /%A106 FAILURE OF SHIFT LOOP WITH ONES%S15%AM8965(15)  212N/ 
COD07: ASCIZ /%A107 FAILURE OF SHIFT LENGTH MUX%S19%AMB965(15)  22%N/ 
COD10: “ASCI1Z /4%A110 FAILURE TO RECEIVE CORRECT OP-CODE FROM TS11 MB965(15) 47 %N/ 
CODIOA: "ASCIZ /%A | WHEN DATA SENT OVER THE SERIAL BUS%S12%ATS11.MOTHER BOARD2N/ 
CODIOB: [ASC1Z /%SSO%ASERIAL BUS CABLE%N/ 
COD11: ASCIZ /%A111 FAILURE OF 1KHZ CLOCK TEST%S20%AG159%S9%A2%N/ 
CODIIA: _ASCIZ /%A  -TSTS TAC SYNC FLOP AND ATINZS19%ACBUS CABLE %N/ 
CODI1B: _ASCIZ /%ACHECK TACH PHASE, SKEW,SPEED ADJUSTS ON G159 M8963(11) 2N/ 
COD12: [ASCIZ /%A112 LIGHT REG CHANGED WHEN MOTION REG WAS CLEARED G159%S9%A3,42N/ 
CODI2A: LASCIZ /%ACHECK TACH PHASE, SKEW,SPEED ADJUSTS ON G159%N/ 
COD13: [ASCIZ /%A113 FWD OR MVG BITS WRONG AFTER 1 TICK OF%S9%AG159%S9%A3,42N/ 
CODI3A: _ASCIZ /%A SIMULATED COMMAND AND TACH PULSES3N/ 
COD13B: _ASCIZ /%ACHECK TACH PHASE, SKEW,SPEED ADJUSTS ON G159%N/ 
COD14: “ASCIZ /%A114 FAILURE OF SIMULATED CAPSTAN SPEED TEST: %S6%AG159%S9%A3, 4%N/ 
CODIGA: _ASCIZ /%A  CAPSTAN SPEED COUNTER OUT OF RANGE WHENZN/ 
CODI4B: _ASCIZ /%A TAPE MOTION AT SPEED WAS SIMULATEDSN/ 
CODIGC: _ASCIZ /%ACHECK TACH PHASE, SKEW,SPEED ADJUSTS ON G159%N/ 
COD15: “ASCIZ /%A115 FAILURE OF SIMULATED SLOW CAPSTAN TEST:%S7%AG159%S9%A3, 42N/ 
CODISA: |ASCIZ /%A SPEED COUNTER NOT LATCHED UP WITH MAX COUNT2N/ 
COD15B: .ASCIZ /%A WHEN SLOW TACK TICKS WERE SIMULATED%N/ 
COD15C: LASCIZ /%ACHECK TACH PHASE. SKEW, SPEED ADJUSTS ON G159%N/ 
COD16: _ASCIZ /%A116 FAILURE OF SIMULATED CAPSTAN DECEL TEST: ESOHAGISORS9RAS, 4 %N/ 
CODI6A: _ASCIZ /%A COUNTER NOT ZERO FOR FORWARD OR 377 FORSN/ 
see,  ASCIZ EA REVERSE WHILE DECELERATING OR ive BIT =O2N/ 
COD16C: _ASCIZ /%ACHECK TACH PHASE, SKEW,SPEED ADJUSTS ON G159%N/ 
CODI7: “ASCIZ /%A117 FAILURE OF MOVING FLOP TO RESET AFTER STOP%S4%AG159%S9%A3, G2N/ 
CODI7A: LASCIZ /%A (DIRECTION REVERSAL FOR ONE TACH TICK) %N/ 
COD17B: .ASCIZ /ZACHECK TACH PHASE. SKEW,SPEED ADJUSTS ON G159%N/ 
COD20:  “ASCIZ /%A120 FAILURE OF WRITE BOARD TO TURN ON AND EMPTY ™8929(13)  23%N/ 
COD20A: _ASCIZ /%A THE SILO OR DATA LATE BIT NOT WORKING MB966(14)%N/ 
COD21:  ASCIZ /%A121 FAILURE OF WRITE BOARD TO EMPTY SILO AT MB929(13) 23%N/ 
COD21A: [ASCIZ /%A CORRECT SPEEDXN/ 
COD22: ASCIZ /%A122 UNDEFINED ERROR CODEXN/ 
COD23: “ASCIZ /%A123 UNDEFINED ERROR CODE%N/ 
COD24: “ASCIZ /%A124 FORMATTER CTRL BOARD: FORMATTER FLAG FAILED ™8922(7) 2G%N/ 
COD2GA: _ASCIZ /%ACHECK VCO ADJUST ON M8922%N/ 
COD25: “ASCIZ /%A125 FORMATTER SILO FILLING AND DATA ERROR M8922(7) 24%N/ 
COD25A: "ASCIZ /%ACHECK VCO ADJUST ON M8922%S25%AM8923( 3) ZN/ 
COD25B: “ASCIZ /%ACHECK SKEW, THRESHOLD ADJUSTS ON M8923%S12%AM8924 (4,56) 2N/ 
(0D26: ASCIZ /%A126 PEAK SHIFT TEST ERROR%S25%AM8922(7)%S5%A252N/ 
COD26A: "ASCIZ /RACHECK VCO ADJUST ON MB922%525%AMB92 8( 3) 2N/ 
COD26B: _ASCIZ /%ACHECK SKEW, THRESHOLD ADJUSTS ON M8923%S12%AM8924(4,5,6) 2N/ 


GLOBAL 
CZ1S1B 


AREAS 
P11 


026741 
027047 
027123 


027220 
027256 


027310 


MACY11 


19-AUG-7 


047445 
040445 
027310 


000000 
177777 
177777 


3041 
9 20:2 


030501 
041501 
041501 
022465 


031463 


046) 
6 


1 8 ‘wee eicnPres ate oy 
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GLOBAL SUBROUTINES SECTION SEQ 0099 
033462 (COD27: .ASCIZ /%A127 FORMATTER TABLE LOOKUP ROM CHECKSUM TEST ERR M8922(7) = = 262N/ 
042510 COD27A: .ASCIZ /2ZACHECK VCO ADJUST ON M89222S252%AM8925(5)2N/ 
042510 COD27B: .ASCIZ /2ZACHECK SKEW, THRESHOLD ADJUSTS ON M89252%S12%2AM8924(4,5,6)2N/ 
020101 CODXXX: .ASCIZ /2%05%A UNDEFINED ERROR CODE2N/ 
020067 COD3357: .ASCIZ /%A557 CAPSTAN RUNAWAY2ZN/ 
‘LGSt 86GE 
EVEN 
ENDMOD 
~SBTTL LOAD DEV PROTECTION TABLE 


+4 
; TABLE FOR SUPERVISOR TO IDENTIFY P-TBL FOR LOAD DEV 
;AND TO WARN OPERATOR WHEN HE TRIES TO TEST THE LOAD DEVICE 


BGNPRCT 
LSPROT:: 
~WORD 0 -P-1BL OFFSET OF TSSR 
~WORD -1 >P-TBL OFFSET OF MASS BUS UNIT#: -1 = NOT A MASS BUS DEV 
caver -| -P=-1BL OFFSET OF DRIVE #: -1 = NONE, ONE DRIVE PER UNIBU 





GLOBAL 
CZ1S1B 


AREAS 
P11 


027516 


027366 


027370 
027370 


027436 
027436 


027456 


MACY11 30(1046) 
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032727 
001421 


104454 
000001 
002500 
000000 


012727 


000757 
012700 
104447 
103005 
012737 


012700 
104447 


103402 
0052357 
013700 


020027 
003401 


104444 


000003 002230 


003720 
002116 
177772 
177756 


000035 


177777 
000034 


027574 
027574 
000003 
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027574 


mee ee 





LOAD DEV PROTECTION TABLE SEQ 0100 


~TITLE MISCELLANEOUS SECTIONS 
~SBTTL INITIALIZE SECTION 
GNMOD 


£9 
; THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
; AT THE BEGINNING OF EACH PASS. 


BGNINIT 
LSINIT:: 
BIT #BI1T0'B111,#CMDPKT ::1S CMD PKT ON A MODULO 4 BOUNDARY? 
PEQ 2$ :;BR IF SO. OK. 
1$: ERRSF 1,MODUER >: 1F NOT, TELL HIM THE PROGRAM IS SCREWED UP. 
TRAP CSERSF 
. WOR 1 
. WORD MODUER 
» WORD 
DELAY 2000. -GO 10 THE SUPERVISOR, WAIT 1 SECOND. 
MOV #2000.,(PC)* 
-WORD 0 
MOV LSOLY,(PC)+ 
. WORD 0 
DEC -6(PC) 
BNE -4 
DEC -22 (PC) 
BNE 720 
BR 1$ >: TELL HIM AGAIN IF HE INSISTS ON CONTINUING. 
2s: READEF #EF.NEW :;1S THIS A NEW PASS? 
MOV WEF .NEW,RO 
TRAP CSREFG 
BNCOMPLETE 53% :;BR IF NOT. 
BCC 3$ 
LET LUNIT := #1 : INIT THE LOGICAL UNIT @. 
MOV #-1,LUNIT 
READEF #EF.PWR sHAS THERE BEEN A POWER FAILURE? 
MOV WEF .PWR,RO 
TRAP CSREFG 
BCOMPLETE 4$ :BRANCH IF SO = KEEP et wat 
LET LUNIT := LUNIT + #1 ;UPDATE UNIT @#@. 
INC LUNIT 
4$: LET RO := LUNIT :PREPARE 10 PASS # TO SUPER. 
MOV LUNIT,RO 
IF RO GT #3 THEN :1F # 1S PASS THE LIMIT THEN: 
CMP RO,#3 


50115% 
CSDCLN 


DOCLN 
ENDIF 


BLE 
;DO CLEANUP AND TERMINATE PASS. 
: TRAP 


501138: 


GPHARD RO,RO ;SETUP TO RETRIEVE HRD P-TABLE DATA, 


MISCELLANEOUS SECTIONS 
CZ1S1B.P11 


027436 


027572 


027574 


027576 
027576 
027576 


027600 
027600 


027600 
027600 


027624 


062706 
013737 


104432 
000004 


000000 


104411 


MACY11 30(1046) 
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002224 
002224 


000002 
027574 
000340 
002306 
002226 
000003 
000010 


027574 


030050 
00340 


000003 


So 

oS 

~m 
MIMI MIP PUPOPOPS 
Nm—— NNN 
OOoorwmnrvo ds & 


002422 


K 
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INITIALIZE SECTION 


BNCOMPLETE 5% 


MOV (RO), TSSR 

MOV TSSR,1S0B 

SUB #2,1S0B 

MOV 1TSOB,1TSBA 

MOV TSBA, TSBAH] 

ADD #1, TSBAHI 

MOV TSO08, TSDBHI 

ADD #1, 1SDBHI 

MOV 2(RO),TSVCT 

LET RS := LUNIT SHIFT 1 
SETVEC TSVCT,TS4INT(RS) ,#INTPRI 


LET UNIT := LUNIT 


EXIT INIT 
; LOCAL STORAGE THAT IS USED ONLY DURING THE 
LUNIT: .WORD 0 
~EVEN 
L10031: wetter 
~SBTTL AUTO DROP SECTION 


2o¢ 
>SECTION EXECUTED AFTER THE INI™ CODE WHEN ‘‘ADR’’ FLAG IS SET BY OPERATOR 
DROPS UNIT IF NO RESPONSE 


;SECTION CHECKS FOR A VALID INTERFACE LOCATION, 
>FROM INTERFACE 


BGNAUTO 
LSAUTO:: 


LET TRAPD4 :B= #0 
SETVEC #4, #TRAP4S,#PRIO?7 


TRA 
;BR IF THIS UNIT HAS oan? 


;GET THE TSSR ADDR. 
;CALCULATE THE 

;TSDB ADDRESS. 

;LOAD TSBA ADDRESS. 
;CALCULATE THE TSBA 

;H1] BYTE ADDRESS. 
;CALCULATE THE 

;TSDB H] BYTE ADDR. 

;GET THE VECTOR ADDRESS. 
;GET LOGICAL UNIT # X 2. 


ASL 
;SET UP INTERRUPT PROCES 
MOV 


AD 
:SET UP UNIT # FOR PRINTOUTS. 
MOV 


TRAP 


. WORD 
INITIALIZE SECTION. 
;CURRENT LOGICAL UNIT @#. 


TRAP 


SEQ 0101 
p C$GPHRD 
ROPPED. 
3$ 
MOV LUNIT,R5 


R5 
SING CONDITIONS. 


#INTPRI ,-(SP) 
TSGINT(R5S) ,-(SP) 
TSVCT,-(SP) 
#3,-(SP) 

C$SVEC 

#10,SP 


LUNIT,UNIT 


CSEXIT 
L10031-. 


CSINIT 


TRAPDS 


#PRIO7,-(SP) 
#TRAPG ,-(SP) 
#4 ,-(SP) 
#3,-(SP) 
C$SVEC 


rittin pit SECTIONS 


CZ1$1 


SNS NS NS NS NSN NN SS 
Mwm—"OOOnNCO UF WOO 


11 
027626 


027744 
027744 


027744 
027744 
027744 


027746 


030034 


062706 
017701 


012700 
104436 


105737 
001415 


013746 


062706 
004737 


000420 


104461 
040445 


051124 
020124 
116 


040440 


MACY11 50(1046) 
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000010 
152566 
000004 


030050 


002224 
027746 
000002 


000006 
014570 


000200 


002422 
002566 
000002 


000006 
014570 


052502 
059101 
047445 


044501 


022504 


152312 


020123 AUTODM: 
040440 


022466 
052116 


000116 


ate tia 7° 


UTO DROP ECTIO 


L10032 


LET R1 := 


20: ou PAGE 73° 


@TSSR 


CLRVEC #4 


IFB TRAPDS4 NE #0 THEN 


PRINTF #AUTODM,TSSR 


JSR PC, DROPU 
ELSE 


IF #TS.SSR NOTSETIN @TSSR THEN 


PRINTF #SSROFF UNIT 


JSR PC,DROPU 
ENDIF 


ENDIF 


ENDAUTO 


ASCII 


~ASCIZ 


~EVEN 


/ZABUS TRAP AT %062%N/ 


5011. $: 


501168: 
501158: 


/ZAINTERFACE BAD OR NOT SET TO ABOVE AD2N/ 


DEVICE BUS TRAP HANDLER 


OUTPUT: 


TRAPDS BYTE 1: 


TRAPED AT 4 
0: NO TRAP 


TRAP 


SEQ 0102 
#10,SP 
aTSSR,R1 


#4,R0 
C$CVEC 


TRAPD4S 
50114$ 


TSSR,-(SP) 
#AUTODM, -(SP) 
#2,-(SP) 
CSPNTF 

#6,SP 

50115$ 
#TS.SSR.aTSSR 
50116$ 


UNIT,-(SP) 
#SSROFF ,-(SP) 
) 


C$AUTO 


™ 


ow) hee SECTIONS MACY11 30(1046) 
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030042 
030042 105237 030050 
030046 000002 


030050 900 
030052 


x 
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AUTO DROP SECTION 


TRAP: 


TRAPD4: 
EVEN 


LET TRAPD4 :B= TRAPD4 + #1 


RT] 
-BYTE 


0 


;TRAPED AT 4 FLAG 


INCB 


TRAPD4G 


—— 1 ww 


SEQ 0105 


“sz 
Pred guano 


030052 
030052 


030052 
030052 
030056 
030060 
030060 
030064 


030066 
030066 
030070 


030072 
030072 
030072 


013700 
1044 56 


013700 
104441 


104432 
000002 


104412 


ELLANEOUS SECTIONS MACY11 30(1046) 
B.P11 19-AUG-79 20:26 


002226 


000340 


N 
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CLEANUP CODING SECTION 


~SBTTL CLEANUP CODING SECTION 


:44 





; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 


; AT THE END OF EACH PASS. 


B 
LSCLEAN:: 


L10033: 


GNCLN 


CLRVEC TSVCT 


SETPRI PRIO7 


EXIT CLN 


EVEN 
ENDCLN 


;RELEASE TE INTERRUPT VECTOR. 
MOV 


TRAP 


MOV 
TRAP 


TRAP 
. WORD 


TRAP 


SEQ 0104 


TSVCT,RO 
C$CVEC 


PRIO7,RO 
CSSPRI 


CSEXIT 
L10033-. 


CSCLEAN 





030074 
030074 


030074 
030076 
030100 
030102 


030104 
039104 
030106 


LANEOUS SECTIONS MACY11 50(1046) 
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000240 
000240 
000240 
000240 


000167 
000000 


104453 


B 
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~SBTTL 


DROP UNIT SECTION 


DROP UNIT SECTION 


so? 
; THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 


L$DU 


E 
L10034: 


; TO NO LONGER BE TESTED. 


BGNDU 


. WORD 
. WORD 


TRAP 


JSJMP 
L10034-2-. 


C$DU 


SEQ 0105 


o 


MISCELLANEOUS SECTIONS MACY11 50(1046) 
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S1B.P11 


030126 
030126 
030126 


030130 


000240 
000240 
000240 
000240 


000167 
000000 


104452 


C 
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ADD UNIT SECTION 


~SBTTL ADD UNIT SECTION 


- +4 


: THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 


; 10 BE (A) TESTED FOR THE FIRST TIME, OR (8) RESUMED IN TESTING. 


; “ER.AUNIT’ IS SET, 


LS$AU 


L10035: 


BGNAU 


~EVEN 
ENDAU 


ENDMOD 


THE UNIT WILL BE TESTED AS A NEW UNIT. 


IF 


. WORD 
. WORD 


TRAP 


JSJMP 


SEQ 0106 


L10035-2-. 


C$AU 


HARDWARE TESTS MACY11 50(1046) 


CZ1S 19-AUG-79 20:26 


1B.P11 


0301350 


030130 
030130 


030130 


030210 


104402 
104404 
104433 


032777 
001416 


104455 
000035 
002625 
000000 


012746 
012746 
010600 
104414 
062706 


004737 


104405 
004737 


000200 


005037 
000001 


000004 
014570 


014616 
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ADD UNIT SECTION 


~TITLE HARDWARE TESTS 
~SBTTL TEST 1: PDPI1/TS11 WRAP TEST. 
BGNMOD 


i 

; TEST TO INSURE PROPER COMMUNICATION BETWEEN THE PDP11 AND THE TS11 BY 
; WRAPPING THE FOLLOWING PATTERNS: 

; Al IN A FIELD OF 0°S; AO INA FIELD OF 1°S. 


WHEN DATA IS WRITTEN TO THE TSDB HI BYTE, THE DATA IS WRAPPED 
AROUND WIHTIN THE TS11 AND APPEARS IN THE TSBA LO 

AND HI BYTES. THE 2 LOW ORDER BITS OF THE DATA WILL BE 
REFLECTED IN THE TSSR EXTENDED ADDRESS BITS. 

R4 CONTAINS A COPY OF THE DATA SENT. 

R3 CONTAINS THE EXPECTED TSBA RESULTS 

R2 CONTAINS THE EXPECTED STATE OF THE TWO EXTENDED ADDRESS 
BITS IN THE TSSR. 


BGNTST 
TUt% 
BGNSUB 
SPs G 
TRAP 
BGNSEG 
TRAP 
BRESET sRESET THE BUS. 
TRAP 
. 1F #1TS.SSR SETIN OTSSR THEN 
152060 BIT 
BEQ 
ERRDF 29,SSRON 
TRAP 
. WORD 
. WORD 
. WORD 
PRINTB #1S11BD 
MOV 
MOV 
MOV 
TRAP 
ADD 
CALL DROPU 
JSR 
ENDIF 
501178: 
ENDSEG 
10000$: 
TRAP 
CALL WAITSR 
JSR 
ENDSUB 


C$BSUB 
C$BSEG 
CSRESET 


#TS.SSR,aTSSR 
50117$% 


CSERDF 
29 
SSRON 
0 


#TS11BD.-(SP) 


#1 ,-(SP) 


PC ,DROPU 


CSESEG 


PC ,WALTSR 


HARDWARE TESTS MACY11 30(1046) 
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S1B.P 


030240 


030244 


030324 


030326 
030326 
030350 


030332 


0305356 


19-AUG- 


104405 
012704 


005002 


052702 


005003 
150403 
000303 
150403 
104402 


104404 
004737 


032777 


001402 
004737 


104405 
005977 


004737 
004737 
1044035 


120427 
001534 


104432 
000132 


110477 
012727 


001375 


000200 


000001 


000400 
000002 


001000 


014616 
000200 
030332 


151716 
014616 
016020 


000377 


151660 
000012 
002116 
177772 


: F 


19-AUG- "Ties 7 27 PA 


151732 


TIDATA: 


1$: 


2$: 


100008: 


110040: 


TIWRAP: 


GE 79 
1: PDP11/TS11 WRAP TEST. 
L10037: 


SEQ 0108 


TRAP C$ESUB 
MOV #200,R4 s INIT THE DATA. 
; REPEAT FOLLOWING UNTIL DATA ALL SHIFTED 
CLR R2 R2 WILL HOLD X ADDR BITS. 
BIT #BITO,R4 “BET 0 SET IN DATA? 
BEQ 1$ :BR IF NOT. 
BIS #1S.KA0,R2 -1F SO SET THE BIT. 
BIT MBITI,RG ;BIT 1 SET IN DATA? 
BEQ 2% :BR lF NOT. 
BIS W™S.KA1,R2 :1—F SO SET THE BIT. 
= R2 NOW CONTAINS THE EX ADDR BITS 
sEXPECTED IN THE TSSR. 
CLR R3 “CLR TSBA EXP RESULTS REG. 
BISB R4,R35 >SETUP R3 TO LOOK LIKE 
SWAB R53 ; THE TSBA (EXPECTED RESULTS). 
BiSB R4,R3 :R3 NOW CONTAINS THE TSBA EXPECTED RESULTS. 
BGNSUB 
TRAP C$BSUB 
BGNSEG 
TRAP C$BSEG 
JSR PC ,WAITSR :GO WAIT FOR SSR BIT TO SET. 
1 #1TS.SSR cETIN a1SSR THEN 
BIT #TS.SSR,aTSSR 
BEQ 50120$ 
JSR PC,TIWRAP 
ENDIF 
501208: 
ENDSEG 
TRAP CSESEG 
CLR aTSSR > SUBSYSTEM INIT. 
CALL WAiTSR 
JSR PC ,WAITSR 
CALL SHWRAP 
JSR PC, SHWRAP 
ENDSUB 
TRAP C$ESUB 
CMPB R4,#377 
BNE TIDATA 
EXIT TST 
. TRAP CSEXIT 
~WORD 110036-. 
:TEST 1 SUBR TO WRAP AND CHECK DATA 
MOVB R4,aTSDBHI >SEND THE DATA, 
DELAY 10. -GO TO SUPERVISOR, WAIT 1 MSEC. 
MOV ®10., (PC)? 
~wORD O 
MOV LSDLY,(PCI* 
~WORD 0 
DEC -6 (PC) 
BNE 74 


HARDWARE TESTS MACY11 30(1046) 
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CZ1S1B.P11 


030360 


030460 


030462 
030462 
030462 


005367 
001367 
017737 


020337 
001406 


104455 


006044 
004737 
017737 
012701 
005101 
040137 


020237 
001406 


104455 
000004 
002740 
006544 


004737 


000207 


104401 


177756 
151626 
002432 


014570 


151602 
001400 
0024354 


002434 


014570 
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POPII/1TS11 WRAP TEST. 


002432 


002434 


TEST 1: 


L10036: 


RTS 


EVEN 
ENDTST 


PC 


MOV a@TSBA,TEMP! 
If R3 NE TEMP] THEN 


ERRDF 


CALL 


MOV a@TSSR,TEMP2 
MOV #TS.XAO!TS.XAI,R1 
COM RI 
BIC R1,TEMP 
If R2 NE TEMP2 THEN 


ERRDF 


CALL 
ENDIF 


F 


3, WRPER|,WRAPRI 


DROPU 


4, WRPER2Z,WRAPR4 


DROPU 


9 





DEC 


BNE 
;SAVE THE TSBA REG. 


CMP 
BEQ 


TRAP 
. WORD 
- WORD 
. WORD 
JSR 


501218: 


;GET TSSR. 
;MASK OFF THE XADDR BITS. 
;BIT CLR ALL BUT THE 
sEXTENDED ADDR BITS. 


CMP 
BEQ 


TRAP 
. WORD 
. WORD 
. WORD 
JSR 


501228: 


TRAP 


ee ee ee eee — 


SEQ 0109 
=-22(PC) 
.-20 
R3, TEMP 
50121% 
CSERDF 
5 


WRPER1 
WRAPR 1 


PC ,DROPU 


R2,TEMP2 
50122$ 


CSERDF 
4 


WRPER2 
WRAPRG 


PC ,DROPU 


CSETST 
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CZ1S1B.P11 


030464 
030464 


030464 


030470 
030474 


050614 


012704 
005077 
004737 


032777 
001452 


104402 
110477 
012727 


017737 


123704 
001406 


104455 


006220 
004737 


017737 


125704 
001406 


104455 
000006 
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000200 
151530 


014616 
000200 


151476 
000012 
002116 
177772 
177756 
151446 
002432 


014570 


151422 
002434 


151516 


002432 


002434 


6 9 
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TEST 2: PDP11/1S04 WRAP TEST. 
-SBITL TEST 2: PDP11/1TSO04 WRAP TEST. 
; TEST TO INSURE PROPER COMMUNICATION BETWEEN THE PDP11 AND 
> THE 1804 BY WRAPPPING THE FOLLOWING PATTERN 
; A 1INA FIELD OF 0°S; AO INA FIELD OF 1's 
WHEN THE DATA IS WRITTEN TO THE TSDB LO BYTE,THE DATA IS 
SENT TO THE TS04, VIA (HE SERIAL LINE, WHERE IT IS WRAPPED 
; AROUND BACK OVER THE SERIAL LINE TO THE TS11. THE DATA THEN 
: APPEARS IN THE TSBA LO AND TSSR LO BYTES. 
; R4 CONTAINS THE EXPECTED TSBA RESULTS AND THE 
; EXPECTED TSSR RESULTS. 
BGNTST 
Tatt 
MOV #200,R4 : INIT THE DATA, 
>REPEAT FOLLOWING UNTIL DATA ALL SHIFTED 
T2WRAP : CLR a@TSSR 
CALL WAITSR 
JSR 
BIT #1S.SSR,aTSSR 
BEQ T2SHFT 
BGNSUB 
T2.1 
“ TRAP 
MOVB R4,a1SDB :SEND DA 
DELAY 10. :GO0 10 SUPERVISOR. WAIT 
MOV 
WORD 
MOV 
WORD 
DEC 
BNE 
DEC 
BNE 
MOV aTSBA,TEMP1 >SAVE TSBA. 
1FB TEMP1 NE R& THEN 
(MPS 
BEC 
ERRDF S,WRPER3,WRAPR2 
TRAP 
WORD 
. WORD 
. WORD 
CALL DROPU 
JSR 
ENDIF 
501238: 
MOV aTSSR,TEMP2 > SAVE TSSR. 
1—B TEMP2 NE R4 THEN 
CMPB 
BEQ 
ERRDF 6, WRPERS,WRAPR 5 
TRAP 
~ WORD 


— a ee we + oe _- 


SEQ 0110 : 


PC ,WAITSR 


C$BSUB 
1 MSEC. 
Saget 


LS0L¥ (PCs 
-6(PC) 

a4 
-22(PC) 

-20 
TEMP 1 ,R4 
50125$% 
CSERDF 
5 


WRPERS 
WRAPR2 


PC ,DROPU 


TEMP2,RS 
$0124$ 


CSERDF 
6 


oe 
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CZ1S1B.P11 


030616 


030640 


050642 
030642 
030642 


003015 
006572 


004737 


104403 
004737 


120427 
001313 


104401 


014570 


016020 
000377 


et 


EST 2: 


L10042: 


T2SHFT: 


L10041: 
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PDP11/1S04 WRAP TEST. 


H 9 


CALL DROPU 


SHWRAP 


TRAP 


WRPER3S 
WRAPR 3 


PC ,DROPU 


C$ESUB 
PC ,SHWRAP 


CSETST 


SEQ O111 


HARDWARE TESTS MACY11 50(1046) 


CZ1SIB.P11 


LA AN ON rt AA 


ee ee ee ee ed 


WA AE AEA PD PG PO PONG NPY NG NY NO Ny — Oe MK OOOO OO 
Wr —O OWN UFWN—OOOwe VFWN—OOOnO uv 


5 
3 
3 
3 
3 
5 
5 
3 
3 
5 
3 
b} 
3 
3 
5 
5 
5 
5 
3 
5 
5 
5 
5 


030644 
030644 


030644 
030644 


030706 
030710 


050762 


19-AUG-7 


104402 
105037 
005077 
004737 


032777 
001006 


104455 
000024 
003047 
010200 


004737 


104403 


104402 
004737 


032777 
001406 


104455 


010332 
004737 


027727 
001406 


104455 
000026 
003047 
010446 


9 20:26 


002437 
151346 
014616 


002000 


014570 


015746 
002000 


014570 


151252 002276 


: % 
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TES SET TS04 CHARACTERISTIC VERIFICATION. 


TEST 3: SET TSO4 CHARACTERISTIC VERIFICATION. 


151534 


151300 


7 > 


~SBTTL 


L10044: 


15.2: 


THE FUNCTION OF THIS TEST IS TO ISSUE A 


TO TELL THE TSO04 WHERE IN CORE THE MESSAGE PACKET RESIDES. 


BGNTST 


BGNSUB 


CLRB CTLFLG 

CLR aTSSR 

JSR PC, WAILTSR 

If #TS.NBA NOTSETIN @TSSR THEN 


ERRDF 20,SCHERR,SCHER| 


CALL DROPU 
ENDIF 
ENDSUB 


BGNSUB 


CALL SCHE XE 
1F #1S.NBA SETIN @TSSR THEN 


ERRDF 21,SCHERR,SCHER2 


CALL DROPU 
ENDIF 


IF @TSBA NE #MSGEND THEN 


ERRDF 22,5 CHERR,SCHERS 


CALL DROPU 


; INIT 1TS11-TS04 
;NBA SHOULD BE SET “ie eee 


TRAP 


me ne ee ee eee eC one ons 


SEQ O112 


"SET CHARACTERISTIC’’ COMMAND 


C$BSUB 


#TS.NBA,@1S5R 


BNE 
;WAS ISSUED WITHOUT SET te ISSUED FIRST 


;1F NBA NOTSET, 





501258: 


501268: 


50125$% 
CSERDF 

~ WORD 20 

. WORD SCHERR 

. WORD SCHER1 

THEN CALL ERROR, DROP UNIT 

JSR PC ,DROPU 
TRAP C$ESUB 
TRAP C$B8SUB 

JSR PC ,SCHEXE 
BIT #1S.NBA,a@TSSR 
BEQ 50126$% 
TRAP CSERDF 

. WORD 2 | 

~ WORD SCHERR 

. WORD SCHER2 

JSR PC ,DROPU 
CMP a1SBA,#MSGEND 
BEQ 501278 
TRAP CSERDF 
WORD 

~ WORD SCHERR 
WORD SCHERS 


= 


ee ee ee —- . — a. « 


J 9 
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CZ1S1B.P11 19-AUG-79 20:26 TEST 3: SET TS04 CHARACTERISTIC VERIFICATION. SEQ 0113 
3134 030762 004737 014570 JSR PC ,DROPU 
3135 030766 ENDIF 
3136 050766 50127$: 
3137 030766 1— MSGPKT EQ #177777 OR MSGDFL EQ #177777 THEN 
3138 030766 023727 002260 177777 CMP MSGPKT #177777 
3139 030774 001404 BEQ 50130$ 
3140 030776 023727 002262 177777 CMP MSGDFL,#177777 
3141 031004 001006 BNE 501318 
3142 031006 50: 30$: 
3143 031006 ERRDF 235,SCHERR,SCHERS 
3144 031006 104455 TRAP CSERDF 
3145 031010 000027 -WORD 23 
3146 031012 003047 -WORD SCHERR 
3147 031014 010446 . WORD SCHERS 
3148 031016 CALL DROPU 
3149 031016 004737 014570 JSR PC ,DROPU 
3150 031022 ENDIF 
3151 031022 501318: 
3152 031022 LET R1 := @TSSR CLR.BY #FCMASK 
3153 0351022 017701 151176 MOV aTSSR,R1 
3154 031026 042/01 I77717 BIC #FCMASK,RI 
3155 031032 LET R1 := R1 SHIFT =-4 
3156 031032 006201 ASR R1 
3157 031034 006201 ASR R1 
3158 031036 006201 ASR R1 
3159 031040 006201 ASR R1 
3160 031042 SELECT R1 OF 3 VERIFY 
3161 031042 010146 MOV R1,-(SP) 
3162 031044 003403 BLE $0132$ 
3163 031046 021627 0000035 CMP (SP) #3 
3164 031052 003402 BLE 50133$ 
3165 031054 501328: 
3166 031054 012716 000004 MOV #4, (SP) 
3167 031060 $0133$: 
3168 031060 006316 ASL (SP) 
3169 031062 060716 ADD PC,(SP) 
3170 031064 063607 ADD a(SP)+,PC 
3171 031066 501348: 
3172 031066 000010 WORD 50140$-50134$% 
3173 031070 000022 WORD 501378$-50134% 
3174 031072 000110 -WORD 50136%$-501548 
3175 031074 000120 WORD 5$0135$-50134% 
3176 031076 CASE 1 
3177 0351076 501408: 
3178 031076 ERRDF 24,SCHERR,SCHERG 
3179 031076 104455 TRAP CSERDF 
3180 031100 000030 ~WORD 24 
3181 031102 003047 ~WORD SCHERR 
3182 031104 010542 . WORD SCHERS 
3183 031106 CASE 2 
3184 031106 0004357 HW $0135$ 
3185 031110 50137$: 
3186 031110 IF #1S.SPE SETIN @TSSR OR #BPE SETIN XSTAT2 THEN 
3187 031110 032777 020000 151106 BIT BIS .SPE,a1SSR 
3188 031116 001004 BNE S0141$% 
3189 031120 032737 020000 0022/72 Bll WBPE .XSTATC 
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A Od Ud Ut Od ON Ct Gt A td Ct Ct Gt GC Ct dt I 
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ee ee et et et 
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re re tt I Ut rt tt 
NMEKY PIAS HRI KRYVARIPK NMI Ha Po MP fu 

MmN——— - - © 
MMOS OOOO S>ooew 


www 


001405 


104455 


010706 
000415 
032737 
001405 
104455 


011122 
000404 
104455 
000035 


003047 
011260 


000404 


104455 


014032 


104403 


012700 
104441 


105057 
052737 
012777 
004737 
105737 


19-AUG-79 2 
TEST 


040000 002272 


000000 


002437 
000200 
002240 
014616 
002457 


002240 
150756 


3: 


L10045: 


K 9 


0:27 PAGE 85 
SET TSO04 CHARACTERISTIC VERIFICATION. 


ERRDF 25,SCHERR,SCHERS 


ELSE 


IF #SIP SETIN XSTAT2 THEN 


ERRDF 26,SCHERR,SCHER6 


ELSE 


ERRDF 27,SCHERR,SCHER7 


ENDIF 
ENDIF 
CASE 3 


ERRDF 28,SCHERR,SCHERO 


ENDSELECT 
ENDSUB 


SETPRI #PRIO0 


LET CTLFLG :B= #0 

LET SCHPKT := SCHPKT SET.BY #1E.C 
LET @TSDB := #SCHPKT 

CALL WAITSR 

1FB CTILFLG EQ #0 THEN 


501418: 


50142$: 


501448: 


501458: 
501438: 


50156$: 


50155$: 


TRAP 


. WORD 
. WORD 


TRAP 


MOV 
TRAP 


CLRB 
BIS 


MOV 


JSR 
TS1B8 


re ee 


50142$ 


CSERDF 
25 


SCHERR 
SCHERS 


50143$% 


#SIP,XSTAT2 
50144$% 


CSERDF 
26 


SCHERR 
SCHERO 


50145$% 
CSERDF 
27 


SCHERR 
SCHER? 


501355$ 
CSERDF 
28 


SCHERR 
SCHERO 


C$ESUB 


#PRIOO,RO 


CSSPRI 
CTLFLG 


SEQ O114 


MIE .C .SCHPKT 
#SCHPKT ,@TSDOB 


PC ,WALTSR 


CTLFLG 


HARDWARE TESTS MACY11 30(1046) 
19-AUG-79 20:26 


CZ1S1B.P11 
3246 051246 
3247 0351250 
3248 051250 
3249 031252 
3250 031254 
3251 031256 
3252 031260 
3253 031260 
3254 051264 
3255 051270 
3256 031272 
3257 0351274 
3258 031500 
3259 031300 
3260 0313500 
3261 031500 
3262 031506 
3265 0315306 
3264 051512 
3265 
3266 4031314 
3267 031514 
3268 051522 
3269 
3270 031550 
3271 0313350 
3272 031352 
3275 
3274 
3275 051334 
3276 =051534 
3277 031534 
3278 


001014 
104455 


000000 


012746 
012746 
010600 
104414 
062706 


0427357 


012700 
104441 


013737 
042737 


104432 
000002 


104401 


005646 
000001 


000004 


000200 
000340 


002272 
177400 


19-AUG-79 2 
TEST 


002240 


002424 
002424 


3: 


L10043: 


0:27 PAGE 86 , 
SET TSO04 CHARACTERISTIC VERIFICATION. 


ERRDF #51,NINTM 


PRINTB #1OBRD 


ENDIF 
LET SCHPKT 
SETPRI #PRI107 


LET TSSCL := MSGPKT+MS$XS2 CLR.BY #177400 ;SAVE MICRO-CODE REV 
MOV 


EXIT TST 


EVEN 
ENDTST 


7 


>= SCHPKT CLR.BY #1E.C 


501468: 


BIC 


TRAP 


. WORD 


~ TRAP 


SEQ 0115 
501468 
CSERDF 
31 
NINTM 
0 
#1OBRD,-(SP) 
#1,-(SP) 


C$PNTB 
#4,SP 


WIE.C,SCHPKT 


#PRIO7,RO 
CS$SPRI 


LEVE 


L. 
MSGPKT+*MS$XS2,TS 
#177400, TS4CL 


CSEXIT 
L10045-. 


CSETST 


3285 ;THE DIA (DIAGNOSTIC) COMMAND WHICH SENDS A COPY OF THE DIABLK TABLE, 

3286 :RESIDING IN CORE, TO THE TSO4 CONTROLLER. THE FORMAT OF THE DIABLK IS 
3287 ;SHOWN IN THE FOLLOWING TABLE. NOTE THAT THE TABLE IS FILLED IN REVERSE 
3288 ;ORDER, THAT 1S, THE LAST LOGICAL ENTRY OF THE TABLE IS LABELED DIABLK, 
3289 ;WHILE THE FIRST LOGICAL ENTRY OF THE TABLE IS LABELED DIABLK*DIAEXT, WHERE 
3290 ;DIAEXT IS THE LENGTH (EXTENT) OF THE TABLE IN BYTES. 


5292 . ;WHEN THE DIA COMMAND IS EXECUTED, THE DIABLK IS LOADED ONTO THE TSO04 STACK 


PREECE” Wi WSS mart eo mee nent Semel tana eee ee bapa ao 

HARDWARE TESTS MACY11 30(1046) 19-AUG-79 20: 27 PAGS 87 

CZTSIB.P11 19=AUG-79 20:26 TEST 4: TRACY INACTIVE/ACTIVE TEST. SEQ 0116 

3280 SSBITL TEST 4: TRACK INACTIVE/ACTIVE TEST. | 

3282 

3283 “TESTS 4 = 7 PERFORM DATA WRAPS ON THE P.E. READ FORMATTER 
3293 “WITH THE FIRST LOGICAL ENTRY AT THE TOP OF THE STACK, AS SHOWN BELOW. 
3294 “THE TS04 THEN JUMPS TO THE P.E. WRAP TASK, IN ROM, WHERE THE FUNCTION IS 


3284 ;BOARDS. COMMUNICATION BETWEEN THE PDP11 AND 1S04 OCCURS BY USING 
3295 sEXECUTED USING THE REMAINING STACK ENTRIES AS ARGUMENTS. 


DIABLK*DIAEXT: 1TS04 PE WRAP TASK ADDR LO 
TSO4 PE WRAP TASK ADDR HI 
READ CONTROL (RDCTLO) 
FORMAT CONTROL (FMCTLO) 
CONTROL (10SCO) 
DATA 
CONTROL (10SCO) 


CONTROL (10SCO) 


A 
Ln 
© 
o 


3310 DATA 

3311 CONTROL (10SCO) 

3312 DATA 

3313 CONTROL (10SCO) 

3314 DATA 

3315 D!IABLK: CONTROL (]0SCO) 

3316 

3317 

3318 

3319 > IN NRZ] MODE FOR ALL CHANNELS. IF THE DATA DOES NOT MAKE A TRANSITION 
3320 >WHEN THE WRITE FLAG IS UP, THE TRACK ACTIVE FLOP WILL CLEAR. 
3321 sHOWEVER, IT WILL SET IF THERE 1S A DATA TRANSITION WHILE THE 
3322 sWRITE FLAG IS UP. 


;TEST 4 CHECKS THAT THE TRACK ACTIVE FLOP CAN SET AND CLEAR 


Nn 9 
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CZ1S1B.P11 19-AUG-79 20:26 TEST 4: TRACK INACTIVE/ACTIVE TEST. SEQ 0117 
3323 031336 BGNTST 
3324 031336 T4:: 
3325 
3326 6031336 CALL SCHEXE :SET CHAR 
3327 031336 004737 015746 JSR PC, SCHEXE 
3328 031342 CALL WALTMT 
atta 031342 004737 015174 JSR PC ,WAIITMT 
3331 : THIS SUBTEST FORCES THE TRACK ACTIVE TO CLEAR BY WRITING 
seat : ALL O'S DATA. THE PATTERN IS AS FOLLOWS FOR EACH CHANNEL: 
3334 ; DATA: 000000 
3335 ; WRIFLG: 011100 
Rae ; TRACK ACTIVE: SHOULD BE O FOR ALL TRACKS 
3338 : INITIALIZAITON 
3339 
3340 031346 BGNSUB 
3341 031346 14.1: 
sect 031346 104402 TRAP C$BSUB 
3344 031350 004737 016154 JSR PC,PEINIT :GO LOAD DIABLK INDEX AND 1S04 TASK ADDRESS 
sees 031354 112745 000001 MOVB WFC.NRZ,-(R5) ;SET NRZ1 MODE IN FMT CNTRL. 
tod :SETUP DATA & CONTROL WORDS IN DIABLK. 
3349 031360 005003 CLR ~ R38 :SETUP DATA FOR WORD 1 
3350 031362 012704 000040 MOV WIS.NRZ,R4 :SETUP CONTROL WORD 1 
3351 031366 004737 015626 JSR PC, TALOAD LOAD IT. 
3352 031372 012704 000044 MOV WIS.NRZ'IS.WRE RG ;SET WRITE FLAG IN CONTROL WORD 2 
3353 031376 004737 015626 JSR PC, TALOAD sLOAD DATA & CNTRL WORD 2 
3354 031402 004737 015626 JSR PC. TALOAD ;LOAD DATA & CNTRL WORD 3 
3355 031406 004737 015626 JSR PC, TALOAD ;LOAD DATA & CNTRL WORD 4 
3356 031412 012704 000040 MOV #IS.NRZ,R4 :SETUP CNTRL WORD 5 
3357 031416 004737 015626 JSR PC, TALOAD sLOAD DATA & CNTRL WORD 5 
3358 031422 004737 015626 JSR  — PC, TALOAD :LOAD DATA & CNTRL WORD 6. 
teen 031426 004737 015722 JSR PC, DIAEXE sEXECUTE THE CMD. 
tort :NOW CHECK FOR ERRORS. 
33565 031432 005037 62436 CLR ERRFLG ;CLR THE ERROR FLAG. 
3364 031436 005037 002342 CLR EXTRAC ;TRACK ACTIVE 0 FOR ALL CHAN 
3365 031442 004737 016044 JSR PC, TKACER :CHECK FOR ERRORS. 
3366 031446 LET ACTRK1 := ACTRAC 
3367 031446 013737 002360 002406 MOV ACTRAC ,ACTRK1 
3368 031454 I1FB ERRFLG NE #0 ANDB CMPFLG NE #0 THEN 
33609 031454 105737 002436 TSTB ERRFLG 
3370 031460 001407 BEQ 50147$% 
3371 031462 105737 002212 TSTB CMPFLG 
3372 031466 001404 BEQ 501478 
3373 031470 FPRRRD 7,TAERI,TAEM 
3374 031470 104456 TRAP CSERHRD 
3375 031472 000007 .wORD 7 
3376 031474 005100 .WORD = TAERI 
3377 031476 006716 | .WORD TAEM 
3378 03 ENDIF 
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031500 


031500 
031500 
031500 


031502 
031502 
031502 


031504 
031510 


031514 


031566 


031572 


031646 
031650 
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104405 


104402 


004737 
112745 


012703 


004737 


005037 
012737 
004737 


013737 
005137 


042737 


105737 
001407 
105737 
001404 


104456 
000011 
003150 


016154 
090001 


177777 


000044 
015626 


015626 
015626 
000040 
015626 
015626 
015722 


002436 
000777 
016044 


002360 
002410 


177000 
012436 
002212 


B 10 


iret * hy 20:27 PAGE 


002342 


002410 


002410 


L10047: 


89 
4: TRACK INACTIVE/ACTIVE TEST. 


ENDSUB 


50147$: 


TRAP 


;THIS SUBTEST FORCES TRACK ACTIVE TO SET BY WRITING THE FOLLOWING 
;PATTERN ON EACH CHANNEL: 


DATA: 110000 
WRIFLG: 011100 
TRACK ACTIVE: 

BGNSUB 

INITIALIZATION 


JSR PC,PEINIT 
MOVB #FC.NRZ,-(R5) 


SHOULD BE 1 FOR ALL TRACKS. 


TRAP 


“NRZI MODE 


;SET UP DATA & CNTRL WORDS IN DIABLK 


MOV #-1,R5 

MOV AIS .NRZ,R4 
JSR PC, TALOAD 
MOV MIS.NRZ!IS.WRE RS 
JSR PC,TALOAD 
CLR R3 

JSR PC, TALOAD 
JSR PC, TALOAD 
MOV #IS.NRZ,R4 
JSR PC, TALOAD 
JSR PC, TALOAD 


JSR PC ,DIAEXE 
;CHECK FOR ERRORS 


CLR ERRFLG 
MOV #777. EXTRAC 


JSR PC,7+KACER 
ve] ACTRK2 := COMP ACTRAC 


LET ACTRK2 := 


DATA 
CONTROL 


T 
CONTROL=-WRT FLAG SET 


;LOAD IT WORD 2 (DATA & CONTROL) 


;WORD 3 DATA. 

;LOAD DATA & CNTIRL - WORD 3 
;LOAD DATA & CNTRL - WORD 4 
;CLR WRITE FLAG IN WORD 5 
;LOAD DATA & CNTRL WORD 5 
:LOAD DATA & CNTRL WORD 6 
;D0 THE TSO4 WRAP. 


; INIT ERROR FLAG. 
;SHOULD BE DATA. 
;CHECK FOR ERRORS 


ACTRK2 CLR.BY #177000 


IFB ERRFLG NE #0 ANDB CMPFLG NE #0 THEN 


ERRHRD 9,TAER2,TAEM 


SEQ 0118 


C$E SUB 


C$BSUB 


ACTRAC,ACTRK2 
ACTRK2 


#177000, ACTRK2 
ERRFLG 

$0150$ 

CMPFLG 

50150$ 

CSERHRD 

4 


TAER2 
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CZ1S1B.P11 19-AUG-79 20:26 TEST 4: TRACK INACTIVE/ACTIVE TEST. SEQ 0119 
3435 031652 006716 .WORD TAEM 
3436 031654 ENDIF 
3437 031654 501508: 

3438 

3439 031654 ENDSUB 

3440 031654 L10050: 

sa3 031654 104403 TRAP C$ESUB 
3443 -THIS SUBTEST FORCES THE TRACK ACTIVE TO CLEAR BY WRITING THE | OLLOWING 

3444 :PATTERN ON EACH CHANNEL: 

3445 ; 

3446 : DATA: 111111 

3447 : WRIFLG: 011100 

er ; TRACK ACTIVE: SHOULD BE O FOR ALL TRACKS 

3450 031656 BGNSUB 

3451 031656 14.3 

mee 031656 104402 TRAP = C$BSUB 
3454 : INITIALIZATION 

3455 

3456 031660 004737 016154 JSR PC,PEINIT 

ott! 031664 112745 000001 MOVB #FC.NRZ,-(R5) :NRZ1 MODE. 

4 

4 SET UP DATA AND CONTROL WORDS IN DIABLK. 

3461 031670 012703 177777 MOV -1,R3 :SET UP DATA. 

3462 031674 012704 000040 MOV #IS.NRZ,R4 -SET UP CNTRL WORD. 

3463 031700 004737 015626 ISR PC, TALOAD :LOAD DATA & CNTRL WORD 1 

3464 031704 012704 000044 MOV #IS.NRZ!1S.WRF,R4 :WORD 2 CONTRL 

3465 031710 004737 015626 JSR PC, TALOAD *LOAD DATA =- CNTRL WORD 2 

3466 031714 004737 015626 JSR PC. TALOAD *LOAD DATA = CNTRL WORD 3 

3467 031720 004737 015626 JSR PC, TALOAD *LOAD DATA = CNTRL WORD 4 

3468 031724 012704 000040 MOV HIS.NRZ,R4 :CNTRL WORD 5 

2469 031730 004737 015626 JSR PC, TALOAD >LOAD DATA - CNTRL WORD 5 

3470 031734 004737 015626 JSR PC, TALOAD *LOAD DATA - CNTRL WORD 6 

nf! 031740 004737 015722 JSR PC ,DIAEXE :DO THE WRAP. 

4 

ath >CHECK FOR ERRORS 

474 
3475 031744 005037 002436 CLR ERRFLG - INIT ERROR FLAG. 

3476 031750 005037 002342 CLR EXTRAC sSHOULD BE DATA=0. 

3477 031754 004737 016044 JSR PC » TKACER >CHECK FOR ERRORS 

3478 031760 ET ACTRK3 := ACTRAC ' 
3479 031760 013737 002360 002412 MOV ACTRAC,ACTRK3 
3480 031766 IFB ERRFLG NE #0 ANDB CMPFLG NE #0 THEN 

3481 031766 105737 002436 TSTB ERRFLG 
3482 031772 001407 BEQ 50151$ 
3483 031774 105737 002212 TSTB CMPFLG 
3484 032000 001404 BEQ 501518 
3485 032002 ERRHRD 8,TAER1,TAEM 

3486 032002 104456 TRAP CSERHRD 
3487 032004 000010 WORD 8 

3488 032006 003100 .wORD  TAERI 
3489 032010 006716 . WORD TAEM 


032012 


END If 
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CZTS1B.P11 19-AUG-79 4: TRACK INACTIVE/ACTIVE TESi. SEQ 0120 
3491 032012 50151$: 
3492 
3495 0352012 ENDSUB 
3494 032012 L10051: 
3495 032012 104403 TRAP C$E SUB 
3496 
3497 
3498 -THIS SUBTEST FORCES THE TRACK ACTIVE FLOP TO SET BY WRITING THE FOLLOWING 
3499 :PATTERN ON EACH CHANNEL: 
3500 : 
3501 : DATA: 001111 
3502 : WRIFLG: 011100 
Sone : TRACK ACTIVE: SHOULD BE 1 FOR ALL TRACKS. 
3505 032014 BGNSUB 
3506 032014 14.4 
tat 032014 104402 TRAP C$BSUB 
eve ; INITIALIZATION. 
3511 032016 004737 016154 JSR PC,PEINIT 
3318 032022 112745 000001 MOVB #FC.NRZ,-(R5) :NRZI MODE 
Sere -SET UP DATA AND CNTRL WORD IN DIABLK. 
3516 032026 005003 CLR R3 :WORD 1 DATA 
3517 032030 012704 000040 MOV #IS.NRZ,R4 -WORD 1 CNTRL - WRITE FLAG CLR 
3518 032034 004737 015626 JSR PC, TALOAD >LOAD DATA & CNTRL WORD 1 
3519 032040 012704 000044 MOV #IS.NRZ'IS.WRE,R4 :WORD 2 CNTRL-SET WRT FLAG 
3520 032044 004737 015626 JSR PC, TALOAD :LOAD DATA & CNTRL WORD 2 
3521 032050 012703 177777 MOV #-1,R3 -WORD 3 DATA-DO A DATA TRANSITION 
3522 032054 004737 015626 JSR PC, TALOAD :LOAD DATA & CNTRL WORD 3 
3523 032060 004737 015626 JSR PC, TALOAD *LOAD DATA & CNTRL WORD 4 
3524 032064 012704 000040 MOV #IS.NRZ,R4 -CNTRL WORD 5 - CLR WRITE FLAG. 
3525 032070 004737 015626 JSR PC, TALOAD :LOAD DATA & CNTRL WORD 5 
3526 032074 004737 015626 JSR PC, TALOAD “LOAD DATA & CNTRL WORD 6 
eect 032100 004737 015722 JSR PC ,DIAEXE -GO WRAP THE DATA. 
4444 -CHECK FOR ERRORS. 
3531 032104 005037 002436 CLR ERRFLG : INIT ERROR FLAG. 
3532 032110 012737 000777 002342 MOV #777, EXTRAC TRACK ACTIVE SHOULD BE SET FOR ALL TRACKS. 
3533 032116 004737 016044 JSR PC, TKACER >CHECK FOR ERRORS. 
3534 032122 ET ACTRK4 := COMP ACTRAC 
3535 032122 013737 002360 002414 MOV ACTRAC,ACTRKS 
3536 032130 005137 002414 COM ACTRKS 
3537 032134 LET ACTRK4 := ACTRKS CLR.BY #177000 
3538 032134 042737 177000 002414 BIC #177000, ACTRK4S 
3539 032142 IFB ERRFLG NE #0 ANDB CMPFLG NE #0 THEN 
3540 032142 105737 002436 TSTB ERRFLG 
3541 032146 001407 Q $0152$ 
3542 032150 105737 002212 . 1B CMPFLG 
3543 032154 601404 BEQ 50152$ 
3544 032156 ERRHRD 10,TAER2,TAEM 
3545 032156 104456 TRAP CSERHRD 
3546 032160 000012 .wORD 10 


ee ee ee 
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032250 


032230 
032230 
052230 


003150 
006716 


104405 


013701 
053701 
053701 
053701 


005701 
001406 


104456 


000000 
004737 


104401 


002406 
002410 
002412 


002414 


017554 
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TEST 


4: 


L10052: 


L10046: 


E 10 


TRACK INACTIVE/ACTIVE TEST. 


END If 


ENDSUB 


LET R1 


LET R1 : 


ACTRK1 OR ACTRK2 OR ACTRK3 


R1 OR ACTRK4 


IF R1 NE #0 THEN 


ERRHRD 


11, TAERR 


CALL MSORT1 


ENDIF 


~EVEN 
ENDTST 


501528: 


50153$: 


. WORD 
. WORD 


TRAP 


TRAP 


eee ae ee a 


StQ 0121 


TAER2 © 
TAEM 


C$ESUB 


ACTRK1,R1 
ACTRK2,R1 
ACTRK3,R1 


ACTRK4,R1 


R1 
50153$ 


CSERHRD 


17 
TAERR 


PC ,MSORTI 
CSETSI 
| 


F 10 
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CZ1S1B.P11 19-AUG-79 20:26 TEST 5: P.E. DATA TEST. SEQ 0122 


3582 ~SBTTL TEST 5: P.E. DATA TEST. 


3584 ;TEST 5 WRAPS A DATA PATTERN TO CHECK EACH 
3585 + TRACK FOR BIT PICKUPS AND DROPS. 


3587 :REGISTER USAGE IS AS FOLLOWS: 

3588 ; ; R2=PREAMBLE DATA FOR TRACKS 1-9 IN BIT POSITION 0-8. 

3589 ; R3=1ST BYTE OF DATA FOR TRACKS 1-9 IN BIT POSITION 0-8. THIS 
3590 ; 1S THE DATA OF INTEREST AFTER EXECUTING THE TSO4 DIA COMMAND. 
3591 : R4=2ND BYTE OF DATA FOR TRACKS 1-9 IN BIT POSITION 0-8. 


3593 052232 BGNTST 
3594 032252 132% 


3596 032232 CALL SCHE XE ;SET CHAR 

3597 032232 004737 015746 JSR PC ,SCHEXE 
3598 052236 CALL WALTMT 

3599 032236 004737 015174 JSR PC WAI TMT 
3600 032242 INCR R1 FROM #0 TO #12 BY #2 

3601 032242 005001 CLR RI 

3602 032244 000402 BR 50154$ 
3603 032246 50155$: 

3604 032246 062701 000002 ADD #2,R) 
3605 032252 50154$: 

3606 032252 020127 000012 CMP R1,#12 
3607 032256 003003 BGT 50156$ 
3608 032260 LET ORDTBL(R1) := #0 ;CLEAR 6 LOC OF ORED WRAP the TABLE 

3609 032260 005061 002372 CL ORDTBL (RI) 
3610 052264 END INC 

3611 032264 000770 BR 50155$ 
3612 032266 501568: 


3614 032266 BGNSUB 
3615 032266 15.1: 
3616 032266 104402 TRAP C$BSUB 


3618 :THIS SUBTEST WRAPS AN ALL O'S PATTERN. 


3620 032270 005037 002416 CLR DTKION :CLR DEAD TRK REG. 

3621 032274 012702 000777 MOV #777,R2 >SETUP THE PREAMBLE DATA. 
3622 032300 005003 CLR R3 ‘BYTE 2 DATA. ALL O'S. 
3623 032302 004737 016126 JSR PC ,DATBLD :BUILD THE DIAG BLK. 

3624 032306 004737 015722 JSR PC ,DIAEXE sEXECUTE IT. 


3626 ;CHECK FOR ERRORS. 


2 005037 002436 CLR ERRFLG ; INIT ERROR FLAG. 

6 004737 016504 JSR PC,PEE ;CHECK FOR ERRORS. 

3630 032522 FB ERRFLG NE 10 ANDB CHPFLG NE #0 THEN 

3631 032322 105737 002436 TS1B ERRFLG 
3632 032326 001407 BEQ 50157$% 
3633 032330 105737 002212 TS1B CMPFLG 
3634 032334 001404 BEQ 50157$% 
3635 032336 ERRHRD 12,DATER,SKDAEM 

3636 032336 104456 TRAP CSERHRD 
032540 000014 ~WORD = =le 


; 
——_6 


a a mm rm re mr 
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032542 


032546 


032346 
032546 
032346 


032350 
032350 
032350 


032352 
032356 
032362 
032366 
032372 


032376 


032432 


032432 
032432 
032432 


032434 
032434 
032454 


032436 
032442 
032446 
032452 
032456 
032462 


003243 
007176 


104405 


104402 


005037 
012702 
012703 
004737 
004737 


005037 
004737 


105737 
001407 
105737 
001404 
104456 
000015 


003243 
007176 


104403 


104402 


005037 


004737 


° 


20:26 


002416 
000777 
000777 
016126 
015722 


002436 
016504 


002436 
002212 


002416 
000777 


015722 
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ENDIF 
ENDSUB 

L10054: 
BGNSUB 

9.2: 

:THIS SUBTEST WRAPS AN ALL 1°S PA 
CLR DIKIDN 
MOV #777,R2 
MOV #777,R3 
JSR PC ,DATBLD 
JSR PC ,DIAEXE 
>CHECK FOR ERRORS. 
CLR ERRFLG 
JSR PC,PEER 


1FB ERRFLG NE 10. AND8 CMPFLG NE 


ERRHRD 15,DATER,SKDAEM 
ENDIF 
ENDSUB 
L10055: 
BGNSUB 
> Sf 


;THIS SUBTEST RIPPLES A 1 IN A Fl 


CLR DIKION 
MOV #777,R2 
MOV #400,R3 
CLR DIKION 

1$ JSR PC ,DATBLD 
JSR PC ,DIAEXE 


————S A me 


SEQ 0125 


. WORD DATER 
WORD SKDAEM 
501578: 
TRAP C$ESUB 
TRAP C$BSUB 
TTERN. 

-CLR DEAD TRK IDN REG. 

:LOAD PREAMBLE REG. 

;BYTE 1 DATA. -e« 

;BUILD THE DIA BLK. 

sEXECUTE IT. 

: INIT ERROR FLAG. 

CHECK FOR ERRORS. 

#0 THEN 
1S1B ERRFLG 
BEQ 501608 
1STB CMPFLG 
BEQ 50160$ 
TRAP CSERHRD 
. WORD 13 
. WORD DATER 
. WORD SKDAEM 

501608: 
TRAP C$ESUB 
TRAP C$BSUB 
ELD OF Q'S. 


;CLR DEAD TRK IDN REG. 

;SETUP THE PREAMBLE DATA IN Re BITS 0-8. 
;SETUP 1ST BYTE OF DATA. 

:NO DEAD TRACKS DESIRED. 

;BUILD THE DIAG BLOCK, 

;EXECUTE THE DATA WRAP 


Trt” ati MACY11 30(1046) 
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1B.P 


032466 


032522 
032524 
032526 


032530 
032530 
032530 


032532 
03° ° 32 
032532 
032534 
032540 
032544 


032550 
032554 


032560 


052614 


005057 
004737 


105737 
001407 
105737 
001404 


104456 


007176 


000241 
006203 
103353 


104403 


104402 


005037 
012702 
012703 
004737 
004737 


005037 
004737 


105737 
001407 
105737 
001404 


104456 


007176 


002436 
016504 


002436 
002212 


002416 
000777 
000377 
016126 
015722 


002436 
016504 


002436 
002212 


L10056: 


15.4: 


a ee 


H 10 
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P.E. DATA TEST. 
;CHECK FOR ERRORS & REPORT IF ANY 
CLR ERRFLG ; INIT ERROR FLAG. 


JSR PC ,PEERCK :CHECK FOR ERRORS 
FB ERRFLG NE 40 ANDB CMPFLG NE #0 THEN 
TSTB 
BEQ 
TSTB 
BEQ 
ERRHRD 14,DATER,SKDAEM 
TRAP 
. WORD 
. WORD 
. WORD 
ENDIF 


501618: 
-1F NOT DONE, SHIFT THE 1 AND DO IT AGAIN. 
CLC ;CLEAR THE CARRY BIT 


ASR R3 sSHIFT THE DATA 
BCC 1$ :BRANCH IF THE SHIFTING °1° HASN‘T 
et SHIFTED INTO THE CARRY POSITION 
SFE tl « 
ENDSUB 
TRAP 
BGNSUB 
TRAP 


;THIS SUBTEST RIPPLES A 0 IN A FIELD OF 1°S. 


CLR DIKIDN ;CLR DEAD TRK IDN REG. 
MOV #777,R2 ;SETUP THE PREAMBLE DATA IN R2 BITS 0-8. 
MOV #377,R3 ;SETUP 1ST BYTE OF DATA. 
JSR PC ,DATBLD ;BUILD THE DIA BLK. 
JSR PC ,DIAEXE sEXECUTE THE DATA WRAP. 
;CHECK FOR ERRORS & REPORT IF ANY. 
CLR SP eats ; INIT ERROR FLAG. 
JSR PC,PECRCK :CHECK FOR ERRORS 
FB ERRFLG NE 40 ANDB CMPFLG NE #0 THEN : 
TSTB 
BEQ 
TSTB 
BEQ 
ERRHRD 15,DATER,SKDAEM 
TRAP 
. WORD 
. WORD 
. WORD 
ENDIF 


ERRFLG 
50161$ 
CMPFLG 
50161$ 


CSERHRD 
14 


DATER 
SKDAEM 


C$ESUB 


C$BSUB 


ERRFLG 
50162% 
CMPFLG 
50162$ 


CSERHRD 
15 


DATER 
SKDAEM 


SEQ 0124 


' 
eee ee ee ee ne a Oe ore ~ ee ——— ee wr rw ee Oe Or ere — 
—_— ene ee eee ee. oe ee . - 
—- se re ee ee, re ee = ee + ee ee ee ee 6 ee ae ee ee ee 


' 
—— 


eae ee -— - —-= = -_— 
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tee 052614 50162$: 


3753 ;1F NOT DONE, SHIFT THE 0 AND DO IT AGAIN. 


3755 032614 052703 001000 BIS #BI1T9,R3 ;PREPARE FOR SHIFT. 

3756 032620 006205 ASR R53 ;SHIFT THE DATA. HAS THE SHIFITNG 0 
3757 ;REACHED THE CARRY BIT YET? 

3758 0352622 103752 BCS 1$ ;1F NOT, CONTINUE. 


3760 032624 ENDSUB 
3761 032624 L10057: 
3762 032624 104403 TRAP C$ESUB 


3765 052626 LET R1 := ORORDY OR ORTRAC OR ORDATA 

3766 032626 013701 002372 MOV ORORDY ,R1 
3767 032632 053701 0023576 BIS ORTRAC,R1 
3768 032636 055701 002400 BIS ORDATA,R1 
3769 032642 LET R1 := R1 OR ORTRDD ‘ 

3770 032642 055701 002402 BIS ORTRDD,R1 
3771 032646 IF R1 NE #0 THEN 

3772 032646 005701 TST RI 

3773 032650 001406 BEQ 50163$ 
3774 052652 ERRHRD 30,DATER 

3775 032652 104456 TRAP CSERHRD 
3776 032654 000036 -WORD 50 

3777 032656 0032435 -WORD DATER 
3778 032660 000000 -WORD Q 

3779 032662 CALL MSORT2 

3780 032662 004737 020216 JSR PC ,MSORT2 
3781 032666 ENDIF 

3782 032666 501638: 


3784 032666 EXIT TST 

3785 032666 104432 TRAP CSEXIT 
3786 032670 000002 ~WORD 110055-. 
3787 EVEN 


3789 032672 ENDTST 
3790 032672 L10053: 
3791 032672 104401 TRAP CSETST 


ee ee Ee 
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1B.P11 


052674 
032674 


032674 


032730 


032730 
032750 
032730 


032732 
052736 


004737 
004737 


005001 
000402 


062701 


v20127 
003003 


005061 
000770 


104402 


005037 


012737 


005037 
004737 


015746 
015174 


000002 
000012 


002372 


177000 


016176 
002544 
000777 


002540 
015722 
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6: P.E. SKEW TEST 


~SBTTL TEST 6: P.E. SKEW TEST 


;THE NEXT TWO SUBTESTS SKEW THE DATA ON A TRACK BY ONE BYTE WITH RESPECT TO ALL 


;THE OTHER TRACKS. THAT IS, 
;EACH TRACK IS TESTED FOR SKEW IN THIS MANNER. 
;ARE AS FOLLOWS: 


R2=PREAMBLE DATA 


REGISTER ASSIGNMENTS 


THE DATA IS ONE BYTE LATE ON THE ONE TRACK. 


; R3=BYTE 1 DATA (WITH THE EXCEPTION OF THE SKEWED TRACK. THAT 
; TRACK CONTAINS PREAMBLE DATA) 
: R4=BYTE 2 DATA (WITH THE EXCEPTION OF THE SKEWED TRACK. THAT 
$ TRACK CONTAINS BYTE 1 DATA) 
BGNTST 
16: 3 
CALL SCHE XE 
JSR PC ,SCHEXE 
CALL WAILTMT 
JSR PC WAILIMT 
INCR R1 FROM #0 TO #12 BY #2 
CLR R1 
BR 50164$% 
50165$: 
ADD #2,R1 
50164$: 
CMP R1,412 
BGT 50166$% 
LET ORDTBL(R1) := #0 >CLEAR 6 LOC OF ORED WRAP REG TABLES 
CLR ORDTBL(R1) 
ENDING 
BR 50165$ 
501668: 
BGNSUB 
16.1 
TRAP C$BSUB 
:THIS SUBTEST WRITES AN ALL 1°S PREAMBLE (SKEWED), AN ALL O'S 
:BYTE 1 DATA (SKEWED), AND AN ALL 1°S BYTE 2 DATA (SKEWED). 
CLR DTIKIDN :CLR DEAD TRK JDN REG. 
MOV #377,R2 :SET UP PREAMBLE DATA. START BY SKEWING TRK 9, 
1$ JSR PC,PEINIT >SET WRAP TASK ADDR IN DIABLK AND INIT INDEX. 
MOVB MFC. DAT'FC.VCO,-(R5) ;:SET DATA & VCO MODE IN FORMAT CNIRL. 
MOV R2,R35 :SETUP BYTE 1 DATA 
COM R3 :=0 
BIC #177000,R3 ;CLR GARBAGE BITS 
MOV R2,R4 ;SETUP BYTE 2 DATA=1. 
JSR PC,PEDATA :LOAD DATA IN DIABLK 
CLR EXDATA >THE EXPECTED DESKEWED DATA IN EXDAT. 1S 0 
MOV #777,EXODTR >THE EXPECTED DESKEWED DATA IN EXODTR IS 
>1 FOR EACH TRACK, 
CLR EXIDTR >THE EXPECTED DESKEWED DATA IN EXIDTR IS 0 
JSR PC ,DIAEXE “EXECUTE THE DATA WRAP. 


<i) 


SEQ 0126 
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035046 


033046 
033052 


033054 
033056 
035056 
033056 
033060 


033060 
033060 


033062 


005037 
004737 


105737 
001407 
105737 
001404 
104456 
000020 


003270 
007176 


052702 
006202 


103732 


104403 


104402 


005037 


012737 
004737 


0050357 
004737 


105737 
001407 


20:26 


002436 
016504 


002456 
002212 


001000 


002416 


000777 


~ 177000 


016176 
000777 
002350 
000777 
015722 


002456 
016504 


002456 
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6: P.E. SKEW TEST 


;CHECK FOR ERRORS AND REPORT IF ANY 
CLR ERRFLG ; INIT ERROR FLAG. 


JSR PC ,PEERCK :CHECK FOR ERRORS 
1FB ERRFLG NE #0 ANDB CMPFLG NE #0 THEN 


ERRHRD 16,SKEWER,SKDAEM 


ENDIF 
50167$: 


;SHIFT THE SKEW TO THE NEXT TRACK AND REPEST. 
BIS #B11T9,R2 ;PREPARE FOR SHIFT OF SKEWED TRK. 


ASR R2 “SHIFT THE PREAMBLE DATA. HAVE ALL THE 
“TRACKS BEEN SKEWED? 

BCS 1$ "BR IF NOT. CONTINUE. 
ENDSUB 

TRAP 
BGNSUB 

TRAP 
“THIS SUBTEST SENDS AN ALL 1'S PREAMBLE (SKEWED), AN ALL 1°S 


:BYTE 1 DATA (SKEWED) AND AN ALL O'S BYTE 2 DATA (SKEWED). 


ERRFLG 
50167$ 
CMPFLG 
50167$ 


CSERHRD 
16 


SKEWER 
SKDAEM 


C$ESUB 


C$BSUB 


SEQ 0127 


CLR DIKIDN ;CLR DEAD TRK IDEN REG. 

MOV #377,R2 ;SET UP PREAMBLE DATA. START WITH CHAN 9 SKEWED. 
JSR PC,PEINIT ;SET WRAP TASK ADR IN DIABLK & INIT INDEX, 

MOVB WFC.DATIFC.VCO,-(R5) ;SET DATA & VCO MODE IN FMT CNIRL. 


MOV #777,R5 
MOV R2,R4 


RG 
BIC #177000,R4 
JSR PC,PEDATA 
MOV #777,EXDATA 
CLR EXODTR 


:SETUP BYTE 1 DATA=1 
:SETUP BYTE 2 DATA 


;=0 

;CLR GARBAGE B11S 

;LOAD THE DATA IN DIABLK 

;THE EXPECTED DESKEWED DATA IS 1 


;THE EXPECTED ‘0 OR DEAD’ DATA=1i FOR EACH TRACK, 


MOV #777, EX1DTR >THE EXPECTED DESKEWED ‘') OR DEAD’’ DATA=1 FOR ALL TRACKS 
JSR PC ,DIAEXE ;EXECUTE THE WRAP. 
;CHECK FOR ERRORS 
CLR ERRFLG > INIT ERROR FLAG. 
JSR PC,PEER :CHECK FOR ERRORS. 
FB ERRFLG NE 10. ANDB CMPFLG NE #0 THEN 
TSTB 
BEQ 
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033202 


033202 
033206 
033210 


033212 
033212 
033212 


033214 


035254 


035254 
035254 
035254 


105757 
001404 


104456 
000020 
003270 
007176 


052702 
006202 
103730 


104403 


013701 
053701 
053701 


053701 


005701 
001406 


104456 
000020 
003270 
000000 


004737 


104401 


20:26 
002212 


001000 


002372 
002376 
002400 


002402 


020216 


L10062: 


LET R1 


LET R1 


ERRHRD 


CALL 
ENDIF 


L10060: 


ERRHRD 


END If 
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16,SKEWER,SKDAEM 


;SHIFT THE SKEW 


BIS 
ASR 
BCS 


ENDSUB 


MSORT2 


EVEN 


ENDTST 


WBIT9,R2 
Re 
1$ 


>= R1 OR ORTROD 
IF R1 NE #0 THEN 


16,SKEWER 


TO THE 


:= ORORDY OR ORTRAC OR ORDATA 


50170$: 
NEXT TRACK AND REPEAT. 


;PREPARE TO SHIFT SKEWED TRK. 
boy p> Fcc TRACK. 


$0171$: 


TSTB 
BEQ 


TRAP 


. WORD 
. WORD 
. WORD 


ARE WE DONE YET? 


TRAP 


SEQ 0128 


CMPFLG 
50170 


CSERHRD 
16 


SKEWER 
SKDAEM 


C$ESUB 


ORORDY ,R1 
ORTRAC,RI 
ORDATA,R1 


ORTRDD,RI 


R} 
50171$% 
CSERHRD 
16 
SKEWER 
0 


PC ,MSORT2 


CSETST 
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033256 
035256 


033256 


033312 
033312 


0353512 
033312 


033314 


004737 
004737 


005001 
000402 


062701 


020127 
003005 


005061 
000770 


005037. 
004737 
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015746 
015174 


000002 
000012 


002372 


000777 
000777 


000400 
016154 
000012 
016176 
015722 


002456 
016504 


mM 10 
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7: P.E. DEAD TRACK TEST. 
~SBTTL TEST 7: P.E. DEAD TRACK TEST. 


;TEST 7 CHECKS THE DEAD TRACK LOGIC BY RIPPLING A DEAD TRACK THRU 
;A FIELD OF LIVE TRACKS AND ONE LIVE TRACK THRU A FIELD OF DEAD 

; TRACKS. ADDITIONALLY, EACH SUBTEST WILL SEND 1°S DATA AND 0°S 
;DATA IN ORDER TO TEST THE 1°S OR DEAD REGISTER AND THE 

;0°S OR DEAD REGISTER. 


;REGISTER USAGE: 


SEQ 0129 


; R2=PREAMBLE ALL 1°S CHARACTER 
; R3=1ST DATA BYTE (BITS 0-8) 
: R4=2ND DATA BYTE (BITS 0-8) 
: DIKIDN=DEAD TRACK DEFINED IN BITS 0-8 (O=LIVE TRK; 1=DEAD TRK.) 
BGNTST 
T7:: 
CALL SCHEXE 
JSR PC,SCHEXE 
CALL WAILTMT. 
JSR PC, WAILTMT 
INCR R1 FROM #0 TO #12 BY #2 
CLR RI 
BR 50172$% 
501738: 
ADD #2,R1 
501728: 
CMP R1,#12 
BGT 0174$ 
LET ORDTBL(R1) := #0 :CLEAR 6 LOC OF ORED WRAP — TABLES 
CL ORDTBL(R1) 
ENDINC 
BR $0173% 
501748: 
BGNSUB 
T7.¥2 
TRAP C$BSUB — 
:THIS SUBTEST RIPPLES A DEAD TRACK IN A FIELD OF LIVE TRACKS, 
MOV #777,R2 ; PREAMBLE 
MOV #777,R3 :BYTE 1 DATA, 
CLR R4 :BYTE 2 DATA, 
1$: MOV #400,DTKIDN -SETUP TO SHIFT 1 DEAD TRACK, 
2$: JSR PC,PEINIT >SET DATA AND VCO MODE IN FMT CONTROL. 
MOVB WFC. DAT'FC.VCO,-(R5) 
JSR PC,PEDATA :LOAD DATA IN DIABLK AND CALCULATE EXPECTED DATA 
JSR PC ,DIAEXE sEXECUTE IT. 
;CHECK FOR ERRORS AND REPORT IF ANY, 
CLR gy > INIT ERROR FLAG. 
JSR PC,PEER * CHE CK FOR ERRORS. 


FB ERRFLG NE 10 ANDB CMPFLG NE #0 THEN 
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CZ1$1 


033410 


033410 
033412 
033416 


035420 


033436 


033440 
033440 
033440 


033442 


033442 
033442 


033444 


105737 
001407 
105737 
001404 


104456 


007176 


000241 
006237 
103346 


105703 


000735 


104432 
000002 


104403 


002456 
002212 


002416 


000777 


000777 
000777 


000377 
016154 
000012 
016176 
015722 


002436 
016504 


002456 
002212 
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002416 


T 72 


4$: 


L10064: 


17.2! 


1$: 
2$: 


ERRHRD 


ENDIF 


;SHIFT THE DEAD TRACK AND REPEAT. 


;CLR CARRY TO PREPARE FOR SHIFT. 
;SHIFT DEAD TRACK 
;BR 1F ALL TRACKS NOT KILLED YET. 


ENDSUB 


BGNSUB 


17,DDER,SKDAEM 


DIKIDN 
2$ 


THE DATA AND REPEAT. 


N 10 


TSTB ERRFLG 
BEQ 50175$ 
TSTB CMPFLG 
BEQ 50175$ 
TRAP CSERHRD 
-WORD 17 
-WORD DDER 
~WORD SKDAEM 


501758: 


; DONE? 

;BR IF SO. 

:BYTE 1 DATA. 

:BYTE 2 DATA. 

;REPEAT TEST WITH COMPLEMENTED DATA. 


TRAP CSEXIT 
~WORD 1L10064-. 
TRAP C$ESUB 
TRAP C$BSUB 


;THIS SUBTEST RIPPLES A LIVE TRACK IN A FIELD OF DEAD TRACKS. 


MOV #777,R2 

MOV #777 ,R3 

CLR R4 

MOV #377 ,0TKIDN 

JSR PC,PEINIT 

MOVB WFC .DATIFC.VCO,-(R5) 
JSR PC ,PEDATA 

JSR PC ,DIAEXE 

;CHECK FOR ERRORS. 

CLR ERRFLG 


JSR 


Phe 


PEERC 
FB ERRFLG NE 10. ANDB CMPFLG NE 


:PREAMBLE. 

:BYTE 1 DATA, 

;BYTE 2 DATA, 

:;SETUP TO SHIFT 1 LIVE TRACK. 

:;SET WRAP TSK ADR AND DIASLK INDEX. 
:;SET DATA AND VCO MODE IN FMT CNIRL. 
—— AND GENERATE EXPECTED DATA, 


; INIT ERROR FLAG. 
:CHECK FOR ERRORS. 


#0 THEN 
TS1B ERREFLG 
BEQ $0176% 
TS1B CMPFLG 


SEQ 0150 


B11 
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$26 001404 BEQ 501768. 
530 ERRHRD 17,DDER,SKDAEM 

530 104456 TRAP CSERHRD 
532 000021 -WORD 17 

534 003510 -WORD ODER 
536 6007176 ~WORD SKDAEM 
540 ENDIF 

540 501768: 


4070 ;SHIFT THE LIVE TRACK AND REPEAT. 


4072 033540 052737 001000 002416 BIS ape DIKIDN ;PREPARE FOR DATA SHIFT. 
4073 033546 006237 002416 ASR DIKID ;SHIFT IT. DONE? 
4074 033552 103744 BCS 2$ ;BR IF NOT, CONTINUE. 


4076 ; CHANGE DATA AND REPEAT 


4078 033554 105703 TSTB R3 ; DONE? 

4079 033556 001404 BEQ 4$ ;BR IF SO. 
4080 033560 005005 CLR R3 ;BYTE 1 DATA. 
4081 0633562 012704 009777 MOV #777 ,R4 ;BYTE 2 DATA. 
4082 033566 000733 BR 1$ ; CONTINUE. 


: 
s 
oooo°o°0ceeo a 


4085 033570 4$: EXIT SUB 
4086 033570 104432 TRAP CSEXiT 
4087 033572 000002 -WORD 1L10065-. 


4089 035574 ENDSUB 
4090 033574 L10065: 
4091 033574 104403 TRAP CSESUB 


4093 033576 LET R1 := ORORDY OR ORTRAC OR ORDATA | 

4094 033576 013701 002372 MOV ORORDY ,R1 
4095 033602 053701 002376 BIS ORTRAC ,R1 
4096 033606 053701 002400 BIS ORDATA,R1 
4097 0335612 LET R1 := R1 OR ORTRDD 

4098 033612 053701 002402 BIS ORTRDD,R1 
4099 033616 IF R1 NE #0 THEN 

4100 033616 005701 TST RI 

4101 033620 001406 BEQ 50177$ 
4102 033622 ERRHRD 17,DDER 

4103 033622 104456 TRAP CSERHRD 
4104 033624 000021 “WORD 17 

4105 033626 003510 -WORD ODDER 
4106 033630 000000 -WORD 0 

4107 033632 CALL MSORT2 

4108 033632 004737 020216 JSR PC ,.MSORT2 
4109 055656 ENDIF 

4110 033656 50177$: 


EVEN 
656 ENDTST 


033 
033656 L10063: 
033636 104401 TRAP CSETST 
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033640 
033640 


033640 


033672 


033676 
033702 
033706 


033712 


004737 
004737 


004737 


005037 
004737 
004737 


105737 
001411 
105237 


105737 
001404 


104456 


007772 


0053357 
100545 


105737 
001404 


015746 


015174 
001777 
016154 
0000035 
016722 
015722 


002476 
017022 
017530 
002456 
002437 


002212 


002420 


0024357 
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002420 


» SBTTL 


LOOKUP TABLE TEST 


TEST 8: LOOKUP TABLE TEST 


;THIS TEST VEFIFIES THAT THE CONTENTS OF THE ROM LOOKUP TABLE ARE CORRECT. 
;THE ROM CONTENTS IN ADDRESS 0-1777 ARE CHECKED. 


18:: 


1$: 


DATA & REGISTER USAGE: 


ROMLKI] = ROM LUOKUP TABLE ADDRESS. 
ERRFLG = ERROR FLAG. 
RS = DIABLK INDEX. 


SIE pe pds 


SEQ 0152 


PC, WAITMT 


BONTST 
;OPEN A ROM LOOKUP TABLE LOCATION. 
JSR PC, SCHEXE sEXECUTE AN SCH COMMAND. 
CALL WAILTMY 
JSR 
MOV #1777,ROMLKI ; INIT THE ROM TABLE ADDRESS 
JSR PC,PEINIT : SETUP TASK ADR + READ CNTRL 
MOVB WFC.VCO'FC.NRZ,-(R5) ;SET VCO + NRZ1 MODE IN FORMAT CNTRL. 
JSR PC ,ROMLOK ; LOAD THE DIABLK. 
JSR PC ,DIAEXE ;EXECUTE IT. 


;CHECK FOR VALID DATA IN THAT LOCATION. 


CLR ERRFLG > INIT ERROR FLAG 
JSR PC ,ROMEX ;GET EXPECTED DATA 
JSR PC ,ROMCK >GET ACTUAL DATA AND COMPARE WIiH 
sEXPECTED. 
1FB ERRFLG NE #0 THEN | 
TSTB 
BEQ 
INCB CTLFLG 
1FB CMPFLG NE #0 THEN 
TSTB 
BEQ 
ERRHRD 18,ROMER,ROMEM 
TRAP 
. WORD 
. WORD 
. WORD 
ENDIF 
502018: 
ENDIF 
502008: 
:UPDATE THE ADDRESS AND REPEAT THE TEST UNTIL DONE. 
DEC ROMLK | :DECR ROM Pessitas - DONE? 
BPL 1$ “BR IF NOT 
IFB CTLFLG NE #0 THEN 
‘STB 
BEQ 


ERRFLG 
502008 


CMPFLG 
50201$ 


CSERHRD 
18 


ROMER 
ROMEM 


CTLFLG 
$0202$ 


HARDWARE TESTS MACY11 Pg ey oa 
19-AUG-79 


CZ1S1B.P11 


033756 


033772 


104456 
000022 
003375 
014142 


104432 
000002 


104401 


20:26 


L10066: 
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D 11 
LOOKUP TABLE TEST 
ERRHRD 18,ROMER,ROMLER 

TRAP 
. WORD 
. WORD 
. WORD 

ENDIF 

502028: 

EXIT TST 
TRAP 
. WORD 

EVEN 

ENDTST 
TRAP 


—__— 
SEQ 01355 


CSERF AD 
18 


ROMER 
ROMLER 


CSEXIT 
L10066-. 


CSETST 


—— -_— a ee ee eee 
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CZ1S1B.P1" 19-AUG-79 20:26 8: LOOKUP TABLE TEST SEQ 0134 
4191 
hes 4 -SBTTL TEST 9: IN-LINE MICRO DIAGNOSTIC TEST 
4194 033774 BGNTST 
4195 0335774 19:: 
4196 
4197 033774 CALL SCHEXE 
4198 033774 004737 015746 ' JSR PC ,SCHEXE 
4199 034000 CALL WALTMT 
4200 034000 004737 015174 JSR PC ,WALTMT 
4201 034004 DELAY 500. 
4202 034004 012727 000764 MOV #500.,(PC)+4 
4203 034010 000000 -WORD 0 
42046 034012 015727 002116 MOV LSDLY,(PC)* 
4205 034016 000000 . WORD 
4206 034020 005367 177772 DEC -6(PC) 
4207 034024 001375 BNE 74 
4208 034026 005367 177756 DEC -22(PC) 
4209 034032 001367 BNE 720 
4210 034034 CALL MSORT3 
rH 034034 004737 020704 JSR PC ,MSORT3 
4 
4213 034040 ENDTST 
4214 034040 L10067: 
4215 034040 104401 TRAP CSETST 


ee eee ew 
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CZ1S1B.P11 19-AUG-79 20:26 : IN-LINE MICRO DIAGNOSTIC [EST SEQ 0135 
4216 
nett ~oBTTL TEST 10: INIT MICRO DIAGNOSTIC TEST 
4219 034042 BGNTST 
‘SSs 034042 T10:: 
4222 034042 005077 146156 CLR aTSSR 
4223 034046 CALL WAITSR 
4224 034046 004737 014616 JSR PC ,WAITSR 
4225 034052 CALL SCHEXE 
4226 034052 004737 015746 JSR PC, SCHEXE 
4227 034056 CALL MSORT3 
‘sce 034056 004737 020704 JSR PC ,MSORT 3 
4230 -EVEN 
4231 034062 ENDTST 
4232 034062 L10070: 
math 034062 104401 TRAP CSETST 
4234 
4235 034064 ENDMOD 


os - ee oe ee - 


' 
ee ee ee ee oe oe eee 
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ER COD] 
Pp 
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034064 


034064 
034064 
034066 


034066 
034066 
034070 
034072 
034074 
034076 
034076 
034100 
034102 
034104 
034106 


034110 
034110 


034112 
034127 


034156 
034156 


NG 
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000024 


009031 
034112 
160002 
177564 


001032 
034127 
000777 
000060 
000776 


013004 


051524 


051123 040440 


126 041505 047524 


ee er ee ee rr eee eee -— ees . eee  + 
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TEST 10: INIT MICRO DIAGNOSTIC TEST 


~TITLE PARAMETER CODING 
.SBTTL HARDWARE PARAMETER CODING SECTION 
BGNMOD 


++ 
THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


BGNHRD 
LSHARD:: 
GPRMA TSGADR,0,0,160002,177564,YES 
GPRMD 1T$4VC1T,2,0,777,60,776,YES 


EXIT HRD 


~NLIST BEX 
TSGADR: .ASCIZ /TSSR ADDRESS/ 
TS4VCT: .ASCIZ /VECTOR/ 

ATS. QED 

EVEN 


ENDHRD 
L10071: 


. WORD 
. WORD 
. WORD 
. WORD 


. WORD 
. WORD 
. WORD 
. WORD 
. WORD 


. WORD 


~EVEN 


~WORD L007 1-LSHARD/ 2 


TSCODE 
TS4ADR 
TSLOLIM 
TSHILIM 


TSCODE 
TS4vCl 
77? 
TSLOLIM 
TSHIL IM 


TSCODE 


SEQ 0156 


j 
| 
| 
| 
| 
| 
| 


—— 
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CZ1S1B.P11 19-AUG-79 20:26 SOFTWARE PARAMETER CODING SECTION SEQ 0137 
Sr -SBTTL SOFTWARE PARAMETER CODING SECTION 
4279 oe 
4280 :11T CONTAINS MACRO THAT ARE USED BY THE SUPERVISOR 
428) :10 BUILD SOFT P-YABLES. ‘HE MACROS ARE INTERPRETED 
4282 -BY THE SUPERVISOR AS DATA STRUCTURES. THE MACROS 
aaa >ALLOQW THE SUPERVISOR TO COMMUNICATE WITH THE OPERATOR. 
4285 pe 
4286 034156 BGNSFT 
4287 034136 000034 -WORD L10072-L.$SO0F 1/2 
4288 054140 LSSOFT:: 
4289 
4290 034140 GPRMAL ENBMSG,0,1,YES 
4291 034140 000130 . WORD TSCODE 
4292 034142 034150 .WORD ENBMSG 
4293 034144 000001 . WORD 1 
4294 
4295 034146 EXIT SFT 
4296 034146 031004 ~ WORD TSCODE 
4297 
4298 .NLIST BEX 
034150 047105 041101 042514 ENBMSG: .ASCIZ /ENABLE DATA COMPARE ERROR PRINTS FOR TESTS 4=7/ 
LIST BEX 
4299 
4300 034230 ~EVEN 
4301 
4302 034230 ENDSFT 
4303 ~EVEN 
4304 054230 L10072: 
4305 
4306 seaatereerererereererestererereeesereraenaneneneeneeenNnteseneeeseresetes 
4307 seeeeeetetetetereeerereeeereteerteeetereeneeKeteenetenenetereretereeere 
4308 5 PATCH AREA 
4309 | 
it 034230 000140 PATCH:: .BLKW 96. 
4 seeeeereeereereeeeerereresereeseeretenersenenaeHereneseneeeneneeeseerete 
4312 seeeeeeerereetetereeeeete tee teeeeteeteeeeeneneneneenseneeeeeereeeeneeees 
4313 034550 LASTAD 
4314 . ~EVEN : 
4315 034530 0345582 WORD TSFREE 
4316 034532 000007 .WORD TSSIZE 
4317 034534 L$LASI:: 
4318 | 
4319 034534 ENDMOD 
4320 | 
4321 .SBTTL HARD CODED P-TABLE 
4322 : 
4323 p+ | 
4326 =. :DIAG IS PRE-PARAMETERIZED PER TBi | 
4325 te | 
4326 | 
4327 034554 BGNSETUP 1 
4328 034534 BGNPTAB | 
4329 034534 000000 WORD 0 | 
4330 034536 000000 WORD 0 | 
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034540 


034552 


C00000 
000000 
000002 


172522 
000224 


000001 
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HARD CODED P-TABLE 


L10073: 
172522 
224 
ENDPTAR 
110075: 
ENDSETUP 
END 


LE mm ee o— <= — ~ _ 


——=d 


SEQ 0158 


~ WORD 0 
-WORD QO 
-WORD 110075-./2-1 


' 
' 
em em mm ee ea a eee ee OO Oe eee ee ee ee 


- oowms oe em ee ee -——_ - -_— 
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CZ1S1B.P11 19-AUG-79 20:26 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0139 
ACDATA 002362 G 58\a 837 1758 

ACK.C = 100000 G 3034 343 44 345 

ACORDY 002354 G 5788 829 1755* 

ACROML 002370 G 5844 869 2029* 2030 

ACTRAC 002360 G 580" 796 839 1588 1593* 1596* 1597* 1598 1757* 3367 3422 3479 3535 
ACTRDD 002364 G S828 849 1759* 

ACTRK1 002406 G 594" = =62157 3367" 3558 

ACTRK2 002410 G 595#@ = 55422e = 554 235* = 5425 * 3559 
ACTRK3 002412 G S964 862158 3479* 3560 

ACTRKG 002414 G S97#@ 8 =63535*" 8=6—3536* 8093538 §=— 362 
ACTIBL 002354 G S778 1749 1764 

ACODTR 002366 G 5834 847 1760* 

ACIDTR 002356 G 5798 827 1756* 

ADR = 000020 G 2498 

ASSEMB= 000010 4 

AUTODM 027746 2711 27408 

AO = 000001 G 2748 81974 1978 2010 

Al = 000002 G 2734 1974 1978 2010 

A2 = 000004 G 2724 §=«1966 1971 2012 

A3 = 000010 G 2718 1981 1985 2008 

AG = 000020 G 2704 8§=1981 1985 2008 

AS = 000040 G 2694 1974 1978 2010 

Ao = 000190 G 2684 # 1981 1985 2008 

A7 = 000200 G 2674 1966 1971 2012 

Ag = 000400 G 2664 1906 1966 1971 2012 
A9 = 001000 G 2654 1904 

BITC = 000001 G 2224 =. 1968 1973 2601 2908 
B1100 = 000001 G Zila 222 

B11T01 = 000002 G 2104 221 

BI1T02 = 000004 G 2098 220 

B11T03 = 000010 G 2088 219 

B1104 = 000020 G 2078 218 

B1T05 = 000040 G 2064 217 

B1T06 = 000100 G 205a 216 

B1107 = 000200 G 2044 215 

B1T08 = 000400 G 2034 214 ‘ 

B1109 = 001000 G 2024 213 

BIT1 = 000002 G 2214 1976 1980 2601 2911 
B1T10 = 002000 G 2014 

B1T11 = 004000 G 2004 

BiT12 = 010000 G 1998 

B11713 = 020000 G 198" 

B1T14 = 040000 G 197# 

B11T15 = 100000 G 1964 

BI1T2 = 000004 G 2208 1983 1987 

B113 = 000010 G 2198 1968 1976 1983 

BI114 = 000020 G 2184 

2175 = 000040 G 2174 

B116 = 000100 G 2168 

BI11T7 = 000200 G 2154 

B118 = 000400 G 2148 81593 1596 1698 1768 1771 
BI1T9 = 001000 G 2134 #81816 3755 3867 3916 4072 
BOE = 000400 G 255a 

BPE = 020000 & 3464 3189 

(H.EAI= 000040 G 3230 

CH.ERJ= 900020 G 3248 
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CZISIB.P11 = 19AUG=79 20:26 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 01 
CH.ESS= 000200 G 3220 

CH9.DA= 000010 G 3708 

CH9.OR= 000001 G 3678 

CH9.TA= 000904 G 369" = 1591 

CH9.TD= 000020 G 3718 

CH9.0D= 000040 G 3720 

CH9.1D= 000002 G 3684 

CMDPKT 002230 G 494" 1393* 1395 2601 

CMD.CO= 000001 G 3188 = -345 

CMD.C1= 000002 G 3178 343 345 

CMD.C2= 000004 G 3168 = -343 344 345 

CMD.C3= 000010 G 315H 345 

CMD.C4= 00CJ20 G 3148 

CMPFLG 002212 G Vee 3371 = 33429 3483) 3542 = 3633) 3666 = 3701S 3742 3855 3904 = 4007 = 4060 
CODTBL 021176 2462 25378 

CODXXX 027220 2490 25708 

COD00 021356 2537  2570# 

CODOODA 021464 2537 2570" 
CODO0OB 021551 2537  2570# 

COD01 021633 2538 2570" 

CODOIA 021732 2538 2570 

COD02 021754 2539 2570 

COD03 = 022047 2540 2570# 

CODO3A 022155 2540  2570# 

COD04 022233 2541 25708 

COD04A 022341 2541 25708 

cOD0S 022370 2542 25708 

COD06 = 022467 2543 2570" 

COD07 022564 2544 25708 

COD10 022655 2545  2570M 

CODI0A 022763 2545 2570" 

COD10B 023065 2545  2570# 

COD11 023116 2546 25708 

CODIIA 023201 2546 25708 

COD11B 023265 2546 2570" 

COD12 023365 2547 25708 

CODI2A 023470 2547 25708 

COD13 023550 2548 2570" 

COD13A 023647 2548  2570# 

COD13B 023721 2548 2570« 

COD14 024001 2549 25708 

CODI4A 024103 2549 25708 

COD14B 024163 2549 25708 : 
CODI4C 024236 2549 2570" 

COD1S 024316 2551  2570# | 
CODISA 024417 2551 2570" 

COD15B 024503 2551 2570 

CODISC 024557 2551 25708 

COD16 024637 2553 25708 

CODI6A 024741 2553 25708 

COD16B 025021 2553 25708 

COD16C 025103 2553 2570s 

COD17 025163 2555 25708 

COD17A 025267 2555 2570" : 
COD17B 025346 2555  2570# 
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COD20 
COD20A 
COD21 


C$BSUB 
CSCEFG 


CSCLCK 
CSCLEA 


CSEDIT 
CSERDF 


CSERHR 


CSERRO= 


CSERSF 
CSERSO 
CSESCA 
CSESEG 
C$E SUB 


CSETST= 
(SEXIT= 


025426 
025534 
5654 


000002 


000045 
000062 


000002 
000055 


000056 
000060 


000003 


000001 
000032 


aqaac§cac 


6 
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1278 


12894 


1175* 


1314 


3027 
3987 


2639 


1301 


1181+ 


1406 


3088 
4040 


1521 


3089+ 


3110 


2982 


3545 
4157 


3232 


3791 
3785 


1584a 


5257* 


3342 


3045 


3567 
4174 


5583 


3948 
4051 


1411 


3245 


3394 


3056 
3656 


3441 


4116 
4086 


1418 


4152+ 


3452 


3096 
5669 


3495 


4190 
4184 


4171 


3507 


3117 
3704 


3554 
4215 


SEQ 4 


3616 


3129 
3745 


3645 
4255 


5649 


3144 
3775 


3678 


5682 


3179 
3858 
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CZ1S1B.P11 19-AUG-79 20:26 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0142 

C$GETB= 000026 Ga 

CSGETW= 000027 Ga 

CSGMAN= 000045 qa 

CSGPHR= 000042 4# 1251 2644 

C$GPLO= 0000350 Ga 

CSGPRI= 000040 Qh 

CSINIT= 000011 4# 2680 

CSINLP= 000020 Qa 

C$MANI= 000050 Qa 

C$MEM = 000051 4a 

C$MSG = 000025 i 673 699 725 751 77? 809 863 884 912 935 958 982 
1006 1029 1067 1104 1117 1140 

CSOPEN= 000034 4a 

CSPNTB= 000014 4a 660 681 707 735 759 897 920 943 967 991 1014 1038 


1052 1089 1113 1125 1426 2085 2117 2129 2141 2173 2205 2245 2274 
2347 2356 2365 2395 2404 2413 2444 2476 2495 2891 3256 


CSPNTF= 000017 4# = =©1286 «=6.'1350.—Ss«d1381~=—Ss«1437)— 2714 2728 

CSPNTS= 000016 4a 

CSPNTX= 000015 Ge = 690 716 742 768 786 753 800 818 824 834 B44 854 
875 903 926 949 973 997 1020 1095 1131 1208 1340 

C$Q10 = 000377 4a 

C$RDBU= 000007 Ga 

CSREFG= 000047 GW 2621-2628 

CSRESE= 000033 4 = 2878 

CSREVI= 000003 Ga 63 

C$RFLA= 000021 4a 

C$RPT = 000025 4a 

CSSEFG= 000046 4a 

C$SPRI= 000041 LW 2779 = 3235S 3264 

C$SVEC= 000037 GW 2664 = 2699 

C$TPRI= 000013 4a 

C18$DA= 000010 6 362¢ = ©=—-1758 

C18$OR= 000004 G 359" 1755 

C18$TA= 000007 G 361# 1588 1757 

C18$TD= 000011 G 363" = =—-1759 

C18$0D= 000012 G 364" 1760 

C18$1D= 000005 G 360" 1756 

DAEM 007406 B15 8598 

DAEMA 007461 821 859" 

DAEMB 007530 831 859" 

DAEMC 007617 B41 859" 

DAEMD 007701 B51 8594 

DASKDD 003336 G 6254 

DATBLD 016126 G 1610# 3623 3656 3691 3732 

DATER 003243 G 6258 3638 3671 3706 3747 #8 3777 

DDER 003310 G 625# 4012 4065 4105 

DESCM 002440 G 6254 

DFPTBL 002204 G 1548 

DIA = 100006 G 343a 512 

DIABLK 002316 G 513 550# 1512 1628 

DIAEXE 015722 G 15500 33598414 $471(«CSSQP COMA COCSS? | CGO? COSTES BKGC(i‘OS = CIRC 
414 

DIAEXT= 000020 G 3420 = 5515 s«(1628 

DIAGMC= 000000 ni 

DIAPKT 002250 G Si2# 1532 

DROPU 014570 G 341 12das 42 te eC Fee eet ee 2 NS 


NEN EE sss sss sees seeeseesmeme 
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CZISIB.P11_19-AUG=79 20:26 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0143 
3149 
DIKIDN 002416 G 599" 1655 1658 ~=—s«1661—Ss«*662)—~—t«=«‘(66S)Sti«*d709”~*«<*‘T?~S*=‘“‘|PQTO«1B13* 182K" «R25 18268 
3620" 3653" 3687* 3690" 3729" 3833* 3883" 3994" 4020" 4047" 4072" 40788 
DIRCHK 020334 3251 3257 22648 
EEMIA 006122 687 6958 
EEM2A 006276 7137218 
EEMSA 006450 73907478 
EEMGA 006622 7657738 
EF .CON= 000036 G 2298 
EF NEW= 000035 G 530" 2620 
EF PWR= 000034 G 531" 9697 
EF RES= 000037 G PLY 
EF STA= 000040 G 5578 
ENBMSG 034150 4992 42988 
ENDIBL= 177777 G 349" 1079 ~—«*1222 
ERRFLG 002436 G 6138 1600" 1790" 20828 3363 3369 3418" 3427 3675* 3681 3531" «3540S 6 2B 
3631-3661" «3664 «=: 8696" +«—«3699-Ss—«*3737* «3740S 8B50* «3853. 3899e 3902-002" 4005 
4055* 4058 4145" 4150 
EVL = 000004 G 2478 
EVNPAR 015560 14694 
EXDATA 002344 G 5720 838_—s«1H60® «= «1661" —-3B42* 38928 
EXORDY 002336 G 569" = B30Sts«*dN6 59 
EXPTBL 002336 G 568" «1779 
EXROML 002352 G 575@ = 870~Ss«N1BBS* 1900* 1919* 1925* 1931* 1939* 19548 1994" 2014* 2030 
EXTRAC 002342 G S71#@ = 789.~=S'i(i‘iGOStC«*NS9BSCiC«*dNGSS@ = 16SGe = 1657¢ «33648 «84198 8760 85826 
EXTRDD 002346 G 5738 = «B50—Sts«*iNC6 SB 
EXODTR 002350 G S7ae = BGBSC«166S* ~=—«*1666* —«166B* —-3B43* «3893s 
EXIDTR 002340 G 570@ «828.-~=—s«é662* «=«*1663* «= -3B45* 394" 
ESEND = 002100 Ga 
ESLOAD= 000035 4a 87 
FCMASK= 177717 G 298# 3154 
FC.DAT= 000010 G 400 1612 3836 3886 3996 4049 
FC FLO= 000100 G 3984 
FCNRZ= 000001 G 403# 3345 «=—3399.-=Ss 34573512139 
FC.PRE= 000004 G 4014 
CRD = 000200 G 3948 
FC vCO= 000002 & 4024 «1612 ~——«3836.~Ss«3886) 3996 ~S 4049S 1389 
FIXDIA 015672 G 181941518 
FMCTLO= 000004 G 3874 
FMICHS 005326 G 6294 2138 ~—-.2362 
FMTCHS 005251 G 6294 3126-9353 
FMTCHO 005174 G 6298 (11633 4a 
FMICTR 005062 G 6294 1110 2082 2170 2202 2242 ~~ 2271 
FMTSEL 020440 2168 © 2200S-s«2250Ss«3 325 
FMT.CO= 000040 G 3134 
FMT-Cl= 000100 G 3128 
F$AU = 000015 GH 28262842 
FSAUTO= 000020 de 96903737 
F$BGN = 000040 Py ad Se ee eee er ea” ie Sek ee ee 
mt. te 0 Oh ae ae ae le ae oe a a ee 
92 978 986 1002 1009 1025 10338 1062 1084 1100 1108 1120 1186 
1155 1168 1171 «1179-2574 ~~ 258325922598 += 2669 ~=S«2690-S«s«772~Ss2782—Ssé799 
2810 2826 2837 2846 2851 2870 2878 5876 5908 2921. 5924 5041 9947 
5999 3016 3026 3065 3076 3084 3087 $105 $109 $281 $291 $276 $824 
$341 3382 3393 3460 3451 3496 3506 3553 3579 3504 325 Senn ss Ba 
3677 «3681 ~=Ssi«8720~=S«s«3724~Sts«3761~St«87BS.)~—SC«S790~—Ss«BG~SC*«B?SC«*SR7S~SCOBBP?. 8921 BGP 


PARAMETER CODING 


CZ1SIB.P11 


FSCLEA= 


- 
Lad 
mn 
a 
o 
TL 


F SHARD= 
FSHW 

FSINIT 
FSJMP 


FSSwW = 


GSXFER= 


000007 
000016 
000041 


000004 


000050 


000000 
000011 


00002 

000017 
000002 
000014 


000001 
100017 


000004 
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4262 
4262 


4262 
4296 


AAA 

Mmm —OnNUNIOO—-Ow— 
NSE MONON UVNWOWO WO 
WIN OO SS OS ISIS 


4291 
4291 
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G$YES = 000010 48 4257 4262 4291 | 

HELP = 000000 oa 4 126 156 1824 290 616 641 642 25884 2600 
hb aff 2801 2811 2828 2838 28488 2867 2868 2993 2995 3002 42388 

HOE = 100000 G 2604 

1BE = 010000 G 2578 

1DU == 000040 G 2504 

1ER = 020000 G 258A 

1E.C = 000200 G 3114 3239 3261 

INITM 015772 1531 1541 15514 

INTPRI= 000340 G 3394 2660 

1OBRD 005646 G 6294 704 730 3253 

10SCO = 000014 G 4378 

ISR = 000100 G 2514 

1S.DAP= 000020 G 4594 1498 1501 1700 

1S.1VP= 000100 G 4534 

1S.LRC= 000010 G 4614 

1S.NRZ= 000040 G ataee 1693 3350 3352 3356 3404 3406 3411 3462 3464 3468 3517 3519 

1S.PAR= 000200 G 449# 1506 1704 

1S.WRF= 000004 G 4624 1693 3352 3406 3464 3519 

IXE = 004000 G 2564 

1$AU = 000041 48 28268 28448 

1S$AUTO= 000041 4H 26904 27398 

ISCLN = 000041 4H 27724 2782 27914 

1$DU = 000041 4# 27998 28178 

ISHRD = 000041 42534 42778 

ISINIT= 000041 4# 25984 2669 26818 | 

1$MOD = 000041 4a on 1824 1864 25748 25928 28464 28514 42364 4242h 43204 

1$MSG = 000041 4a 6494 6748 6764 7004 7024 7268 728A 752a 7544 7788 780" 810" 
812# 8644 8664 885# 892# 9138 9154 9368 9388 9594 9624 9834 986" 
10074 1009 #1030 #%$1033# 10684 #$=(1}10844 =%1105# #=+§411084 +#$+.131184 =11204 #£=11414 

ISPROT= 000040 48 25838 

ISPTAB= 000041 4H 43294 43384 

1SPWR = 000041 4a 

ISRPT = 000041 4a 

1SSEG = 000041 44 2870 2873 28764 29008 2921 29248 29358 3016 3026 3084 3087 3109 
3324 3341 3393 3451 3506 3594 3615 3648 3681 3724 3806 3827 3877 
3965 3986 4039 4130 4195 4220 

ISSETU= 000041 4H 45284 64329 43404 

1SSFT = 000041 42874 43054 

1$SRV = 000041 4#@ 8 11558 11614 11634 =$+1169 11718 $1177 #11798 11854 

1$SUB = 000041 4# «2870 28734 = 290384 = 29054 = 29218 = =—29418 = 29435H = 550016 30264 30654 30678 3084 
3087# 31054 $3107 +%$(}3109% 32318 ‘323538 3324 33414 33828 33848 33938 34408 34428 
34514 34944 34964 35064 35534 35558 3594 36154 36444 36464 36484 36778 36798 
36818  3720# 3722 $3724 #$=$|.}3761€ 37638 5806 38274 3873@ 38758 $8778 39218 (392358 
3965 39868 4931 40354 40374 403984 4084 40904 40924 4130 4195 4220 

1$TST = 000041 4H 28704 2873 2921 2947 2999# 30018 30164 3026 30764 30788 =$%30848 3087 
3109 3271 3276# 860632788 = 333248 = 5541 393 3451 3506 3579@ 35818 35948 3615 
3648 3681 3724 3785 37908 37928 38064 3827 3877 39478 39498 39654 5986 
4039 4115@ 41174 41508 4184 4189# 41918 46195 42146@ 462164 4220 42328 42548 

JSuMP = 000167 4a 668 693 719 745 771 803 857 878 906 929 952 976 
1000 1023 1060 1098 1134 2808 2835 

LOE = 040000 G 2598 

LONMSG 005774 G 6494 1201 1333 

LOOKTB 021116 2457 25074 


A A SE I a a 


PARAMETER CODING 
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LOT 


L10001 


002214 


DQOADQAQAQAQAQADDAAAAAAAIAIAAIAAIAAqAaq Maa MAA MA Aaa Ma aang aaa aaacaqcqadaea 


2 
152 
170 
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1250 


28268 
26904 
2772m 


1334 


1144 
1264 


27998 
1404 


42553 


152 


25984 


43178 


2583" 


4287 


170 


1604 
1798 
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2625* 2632* 2634 2657 2667 


1307 1399 2611 2955 3032 


42548 
153a 


4340 


4288" 


1714 


re ae eee eee 


SEQ 0146 


26748 


4204 


ee 


ee ee ee 
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L10002 006042 669 672a 3 
L10003 <%4216 694 6984 
L10004 Ub. J 720 724e 
L10005 006542 746 7508 
L10006 006714 772 7768 
L10007 007174 804 808A 
L10010 007770 858 8628 
L10011 010140 879 8834 
L10012 010330 907 9114 
L10013 010444 930 9348 
L10014 010540 953 9578 
L10015 019704 977 9818 
L10016 011120 1001 10054 
L10017 011256 1024 10284 
L10020 011434 1061 10664 
L10021 014140 1099 11034 
L10022 014162 11164 
L10023 014366 1135 11398 
L10024 014376 11598 
L10025 014406 11678 
L10026 014416 11754 
L10027 014426 11834 
L10031 027576 2670 26798 
L10032 027744 27378 
L10033 030072 2783 27898 
L10034 0350110 2809 2815# 
L10035 030126 2836 2842h 
L10036 030462 2948 29998 
110037 030210 29034 
L10040 030316 29418 
L10041 030642 30764 
L10042 030626 30654 
L100435 031534 3272 32768 
110044 030706 3105a 
110045 031206 32314 
110046 032250 35798 
110047 031500 3382a 
L10050 031654 34404 
L10051 032012 34948 
L10052 0352166 3555e 
110053 052672 3786 3790" 
110054 032546 56044m 
L10055 032432 36778 
L10056 032530 37208 
L10057 032624 37614 
L10060 033254 3947# 
L10061 035056 38758 
110062 033212 39218 
110063 0336356 41154 
L10064 035440 4032 4055a 
110065 033574 4087 4090# 
110066 053772 4185 41898 
110067 034040 42148 
110070 054062 4232m 
110071 034156 4253 4269 4276# 
L10072 054250 4287 4296 4504m 


ee — ~~ - e e— ee - - 


ee ee ee —— <a 
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10073 034546 43340 
L10075 034552 4333-43384 
MICERA 014230 1122-11368 
MICERB 014304 1128 =. 11364 
MICERR 014164 G 11208 2431 
MICROE 003561 G 25H 2430 
MODUER 002500 G 625" 2606 
MOD.CO= 000400 G 3108 
MOD.C1= 001000 G 3098 
MOD.C2= 002000 G 3088 
MOD.C3= 004000 G 3078 
MOT = 000200 G 3484 1375 1408 
MSGADR 006040 655" 657 6708 
MSGDFL 002262 G 520# 3140 
MSGEND= 002276 G S26# 3126 
MSGEXT= 000016 G 341" = «532-—«1555 
MSGPKT 002260 G S19" 530 1558e 1588 159017551756 «1757 «175817591760 17622029 

IMSORT1 017554 G 2059" 3572 
MSORT2 020216 G 2217" 3780 3939 4108 
MSORT3 020704 G 2421# 4211 4228 
MSSRFC= 000004 G 3548 
MS$XSO= 000006 G 3554 
MS$XS1= 000010 G 356m 
MS$XS2= 000012 G 357" ©3267 
MS$XS3= 000014 G 358M 
NINTH 003503 G 625# 3250 
ODDPAR 015546 G 1467" 1503 ~—-:1701 
ONEFIL= 000001 2M 5 1828 = 185. 2588" =. 2847 «= 2B4BH = 2851 4237 4 238H = 4240 
OPP.C = 020000 G 305# 

ORDATA 002400 G 590# 3768 3927 4096 
ORDTBL 002372 G 586M 3609* 3821" 39808 
ORORDY 002372 G 587" 3766 3925 = 4094 
ORTRAC 002376 G 589" 3767 3926 = 4095 
ORTRDD 002402 G S9i# 3770 3929 = 4098 
ORODTR 002404 G 592" © 2266 
ORIDTR 002374 G $88# 2265 
O$APTS= 000000 ot 46 
O$AU = 000001 4a = «16H s«7B 
O$BGNR= 000000 w .i-8 
O$BGNS= 000001 oo we  % 
o$oU = 000001 sa «6B 
OSERRT= 000000 4a «BB 
OSGNSW= 000001 mt 164 42 
O$POIN= 000001 40 16106 
O$SETU= 000001 @ te ae 
PAIRST 020372 2077 2107, 2237-~— 22878 
PARGEN 015564 1468 14708 
PATCH 034230 G 43108 
PCHDR 011530 1069 10814 
PCHDRA 011624 1069 «108 1# 

PCHORB 011674 1069 10814 
PCHLTB 011436 1041  1069# 

PCHTAD 011432 1047* 1049 10648 
PCHTSO 011736 1070 1081" 

PCHTS! 012015 1070 10814 
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CZ1S1B.P11 19-AUG-79 20:26 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0149 
PCHT52 012057 1070 10814 = 

PCHTSS 012155 1071 10814 

PCHTS4 012215 1071 10814 

PCHT5S 012277 1071 10814 

PCHT56 012342 1072 10814 

PCHTS? 012405 1072 10814 

PCHT60 012444 1072 10814 

PCHT61 012512 1073 10814 

PCHT62 012554 1073 10814 

PCHT65 012624 1073 10814 

PCHT64 012702 1074 10814 

PCHT65 012760 1074 10814 

PCHT66 013025 1074 10814 

PCHT67 015073 1075 10814 

PCHT70 015141 1075 10814 

PCHT71 015215 1075 10818 

PCHT72 013275 1076 10814 

PCHT75 013353 1076 10814 

PCHT74 015455 1076 10814 

PCHT75 013511 1077 10814 

PCHT76 015665 107? 10814 

PCHT77 013747 1077 10814 

PCH75A 015600 1077 10814 

PEDATA 016176 G 1616 16464 53841 3891 3997 4050 

PEERCK 016504 G 17404 3629 3662 3697 3738 3851 3900 4003 4056 
PEINIT 016154 G 1610 16284 3344 3398 3456 3511 3835 3885 3995 4048 4138 
PELOAD 016354 G 1647 1649 1651 16934 1727 1815 1822 1828 
PNT = 001000 G 2544 

POPJHI= 000000 G 2848 550 552 554 556 558 560 562 564 1517 
POPJLO= 000055 G 285A 551 553 555 557 559 561 563 565 1516 
PRCHST= 000014 G 3664 1590 1762 

PRI = 002000 G 2554 

PR100 = 000000 G 24358 3234 

PRI01 = 000040 G 2428 

PRI02 = 000100 G 2414 

PR1035 = 000140 G 2408 

PR104 = 000200 G 2398 

PR105 = 000240 G 238e 

PR106 = 000300 G 237m 

PR107 = 000340 G 2364 339 2695 2778 3265 

ROCHPS 005521 G 629# 2410 

ROCH1 005452 G 6294 2401 

RDOCH2 005403 G 629# 2592 

ROCSEL 020562 2182 2194 23758 

RDCTLO= 000020 G 409M 

RD.MAI= 000100 G 415# 1655 

RD.REV= 000200 G 414a 

RD.SKP= 000020 G 420m 

RD.SPC= 000040 G 4174 

RD.O7 = 000000 G 452e 

RD.110= 000007 G 425a 

RD.12 = 000001 G 431# 

RD.20 = 000002 G 430e 

RD.40 = 000005 G 429m 

RD.68 = 000004 G 428# 

RD.75 = 000005 G 427m 


PARAMETER CODING 
CZ1S1B.P11 


ROMLK 1] 
ROFLOK 


ROMSLK= 


SSRON 


SVCGBL= 


009006 


002420 
016722 


10446 


— at ot ot 

: © 
—~ 
© 
Oo 


000000 
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19-AUG-79 20:26 


AaaqgG Aaqac caqacc 


GQ GY G GG) G) GC) GV Cy CV CV OY CV CV CV CV CV CYC GY 
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CROSS REFERENCE TABLE <= USER SYMBOLS 


1824 
4168+ 


3131 


3597 
5241 


1891 


3146 


3899 
3261* 


3748 


1904 


3181 


3968 


3861 


OW WO Ww UT SE 
0 DWDOWwnNS —-OWWO 


=e 


1906 


3195 


4154 


3910 


1910 


3206 


4198 


4013 


1923 


3214 


4226 


4066 


1929 


3226 


1935 


j 

| 

SEQ 0150 | 

| 

1937 1945 
36 37 
49 50 
62 63 
7? ? 
90 91 
103 114 
649 650 
813 866 
1009 1010 
1164 1171 


ee meee we ti ee; oe - sete 


om ee ee ee ee -_- —— oo - 
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CZ1S1B.P11 19=AUG-79 20:26 CROSS REFERENCE TABLE -- USER SYMBOLS 

1172 1179 1180 2585 2584 2598 2599 2690 2691 2772 2775 2799 2800 

2826 2827 4254 4255 4288 4289 4317# 4318 
SVCINS= 000001 4a 20 21 22 23 24 é2 26 27 29 31 35 55 
37 39 41 43 45 47 49 51 53 55 57 59 61 
63 64 66 67 69 71 73 75 77 79 81 83 85 
87 89 91 95 95 97 99 101 103 113 115 116 117 
118 119 120 121 122 123 124 134 138 141 142 152 170 
657 658 659 660 661 668 669 673 678 679 680 681 682 
684 685 686 687 688 689 690 691 693 694 699 704 705 
706 707 708 710 711 712 713 714 715 716 717 719 720 
725 730 731 732 735 734 736 737 738 739 740 74 742 
743 745 746 751 756 757 758 759 760 762 765 764 765 
766 767 768 769 771 772 777 782 783 784 785 786 787 
789 790 791 792 793 794 796 797 798 799 800 801 805 
804 809 814 815 816 817 818 819 821 822 823 824 825 
827 828 829 830 83) 832 833 834 835 837 838 839 840 
841 842 843 844 845 847 848 849 850 851 852 853 854 
855 857 858 863 868 869 870 871 872 873 874 875 876 
878 879 884 894 895 896 897 898 900 901 902 905 904 
906 907 912 917 918 919 920 921 923 924 925 926 927 
929 930 935 940 941 942 943 944 946 947 948 949 950 
952 953 958 964 965 966 967 968 970 971 972 973 974 
976 977 982 988 989 990 991 992 994 995 996 997 998 
1000 1001 1006 1011 1012 1013 1014 1015 1017 1018 1019 1020 1021 
1023 1024 1029 1035 i056 1037 1038 1039 1049 1050 1051 1052 1055 
1060 1061 1067 1086 1087 1088 1089 1090 1092 1093 1094 1095 1096 
1098 1099 1104 1110 1111 1112 1113 1114 1117 1122 1123 1124 1125 
1126 1128 1129 1130 1131 1132 1134 1135 1140 1160 . 1168 1176 1184 
1190 1198 1199 1200 1201 1203 1204 1205 1206 1207 1208 1209 1227 
1228 1230 1231 1232 1254 1256 1262 1263 1264 1265 1266 1267 1268 
1269 1271 1285 1284 1285 1286 1287 1305 1306 1307 1308 1309 1310 
1311 1312 1314 1330 1351 1332 1335 1335 1336 1337 1338 1339 1340 
1341 1347 1348 1349 1350 1351 1378 1379 1380 1381 1382 1397 1398 
1399 1400 1401 1402 1403 1404 1406 1423 1424 1425 1426 1427 1429 
1434 1435 1436 1437 1438 208° 2083 2084 2085 2086 2114 2115 2116 
2117 2118 2126 2127 2128 2129 2130 2138 2139 2140 2141 2142 2170 
2171 2172 2173 2174 2202 2c 2204 2205 2206 2242 2245 2244 2245 
2246 ~ 2271 2272 2275 2274 227) 2344 2345 2346 2547 2348 2355 2354 
2355 2356 2357 2362 2365 2364 2365 2366 2392 2395 2394 2395 2396 
| 1 2412 2413 2414 2428 2429 2450 
2474 2475 2476 2477 2489 2490 
2607 2609 2610 2611 2612 2615 
2628 2630 2639 2644 2646 2660 
2680 2695 2696 2697 2698 2699 
2714 2715 2724 2725 2726 2727 
2782 2783 2790 2808 2809 2816 
2884 2885 2886 2888 2889 2890 
2942 2947 2948 2953 2954 2955 
2968 2969 2982 2985 2984 2985 
3035 3036 3037 3043 3044 3045 
5088 3096 3097 3098 3099 3106 
313) 3132 3144 3145 3146 314? 
3196 3204 3205 3206 3207 $212 
3232 5234 3235 5248 3049 3250 
3264 3271 3272 3277 3342 3574 
3454 3435 344) 3452 3480 3487 
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SvCSUB= 000000 4# 28753 2874 2921 2922 3026 3027 3087 3088 3109 3110 5541 3342 


SVCTAG= 000000 GH 160 161 179 180 672 tf. 698 699 724 725 750 751 


SVCTST= 000000 4# 2870 2871 3016 3017 3084 3085 3324 3325 5594 3595 5806 5807 


3965 3966 4130 4131 4195 4196 4220 4221 
SWB.C = 010000 G 3064 
S$LSYM= 010000 4a 1614 1804 6738 6954 725a 7514 (77h 8094 8634 8844 9128 9354 


TAEM 00671€ G 780# 3377 3455 3489 3548 

TAEMA 007016 783 BO5a 

TAEMB 007067 790 8054 

TAEMC 007125 797 8054 

TAERR 005220 G 625# 53569 

TAER1 003100 G 6254 3376 3488 

TAER2 003150 G 6254 3434 3547 

TALOAD 015626 G 1495@ 3351 3353 3554 3355 3357 5358 3405 3407 3409 3410 3412 3415 
5465 3465 3466 3467 3469 3470 3518 3520 3522 3525 3525 3526 

TCFCMK= 177701 G 299# 2423 

TEMPO 0024350 G 6058 1467* 14698 1475* 1479* 1504 1702 1716" 1718" 117218 1722" 1724 1890* 
+5 1909 1915* 1944" 1950* 1964" 1965* 1966 1974 1981 2006* 2007* 2010 

TEMP] 0024352 G 6064 685 711 1646* 1648* 1650* 1694 1696 1698 1707 1716 1720 1725* 
1726" 1763" 1773% 1780" 1798 1814" 1818" 1821" 1823" 2059* 2146" 2154 296\* 
2963 3038* 3040 

TEMP2 002454 G 6074 737 763 1195* 1204 1326* 1536 1470" 1471* 17628 17668 2974 2977s 
2979 3051* 3053 

TERMA 010142 886" 1205 1337 

TERMIB 014552 1196 12174 1328 

TERMO1 005630 G 6294 1217 

TERMO2 005651 G 629" 1217 

TERMOS 0035714 G 6298 1217 

TERMOS 0035775 G 629# 1218 

TERMO6 = 004056 G 629" 1218 


cr em ee 
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TERMO7? 004155 G 6294 1219 

TERMIO 004251 G 629" 1219 

TERM11 004506 G 6294 1219 

TERMI2 004411 G 6294 1220 

TERM15 004476 G 6294 1220 

TERMI4 004547 G 6294 1220 

TERMIS 004620 G 6294 1221 

TERM16 004705 G 6294 1221 

TERM17 004776 G 6298 1221 

TIME 002426 G 6048 1188* 1195" 1232* 1247" 1250" 1252 1280 1290* 12935* 1295 1525 1385¢ 
1388* 1390 1420 

TKACER 016044 G 15884 3365 3420 3477 3535 

TRAPD4 030050 2693* 2707 2758* 27618 

TRAPS 0350042 2696 27578 

TSBA 002220 G 4848 2650" 2651 2961 3038 3126 

TSBAH] 002222 G 4B5# 2651* 2652" 

TSOB 002214 G GB2H 1395" 1532* 1542 2648* 2649" 2650 2655 3028* 32418 

TSOBH] 002216 G GB3H 26535* 2654" 2951* 

TSSR 002224 G 4864 1191 1195 1255 1298 1526 2422 2647* 2648 2702 2710 272) 2880 
2927 2935 2976 3020* 5023 3051 3090* 3093 3114 3153 3187 4222e 

TSVCT 002226 G 4B7H#@ = 2655* 2662 2775 

TS.NBA= 002000 G 2954 3093 3114 

TS.SPE= 020000 G 2978 3187 

TS.SSR= 000200 G 2948 1255 1298 2721 2880 2927 3025 

TS.XAO= 000400 G 2935" 2910 2975 

TS.XA1= 001000 G 2928 2913 2975 

TS11BD 005037 G 6298 678 756 894 917 940 2888 

TSGADR 034112 4258 42718 

TS4CL =—.002424 G 6034  3267* 3268* 

TS4INT 002306 G 5364 2661 

TSGINO 014370 G 536 11554 

TS4IN1 014400 G 537 11634 

TSGIN2 014410 G 538 11714 

TS4INS 014420 G 539 11794 

TS4VCT 034127 4263 42718 

TSARGC= 000001 208 21a 22m 258 248 25a 657# 661 6788 682 68448 691 7048 
708 7104 717 7308 734 736# 743 756a 760 7628 769 7828 787 


855 8684 876 894" 898 9004 904 9174 921 9234 927 9408 94 
9468 9644 968 9708 974 988s 9 994" 998 10114 1015 10178 
1021 10354 1039 10494 1055 10864 1090 10928 1096 1110# 1114 11228 8 1126 
11284 8§=1132 12034 12838 1287 1335#@ 861341 1347# 81351 13788 1382 14258 
1427 1434# 1438 20828 21148 2118 21264 2150 2158# 2142 21708 2174 
22024 2206 22424 2246 22718 2275 25448 2548 2353#@ 2357 23628 2566 23928 
2396 24018 2405 24108 2414 24418 2445 24735e 2477 24898 2494 27108 2715 
2724H 2729 28884 2892 325358 3257 

TSCODE= 031004 4257# 42628 42698 42918 42968 

TSERRN= 000022 4@ 1199 13318 24629% 26054 2884 2967# 29834 30444 3057@ 3097# 31188 31508 


TSEXCP= 000000 4257# 4261 4262# 4267 
TSFLAG= 000041 6684 670 695# 695 7198 721 745a 74? i7\n 773 8058 805 85 7a 
859 878a 880 9068 908 9298 931 952a 954 9768 978 1000#@ 1002 


# 1025 10604 1062 1098# 1100 1134#@ 1136 26698 27828 28088 2810 2835e 


ISFREE= 054552 
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TSGMAN= 000000 4a 

TSHILI= 000776 4257# 4260 42624 4266 

TSLAST= 000001 4H = 4315# 4328 

TSLOLI= 000960 4257# 4259 4262 4265 

TSLSYM= 010000 QM 161 0 673 699 725 751 777 809 863 
9 982 1006 1029 1067 1104 1117 1140 1160 1168 


TSLTNO= 0000 
TSNEST= 1777 


T$NSO = 000000 Q 182 1864 2574 258354 2588 2592H 2846 28514 42356 
T$NS1 = 000005 1528 160 1704 179 6494 672 6768 698 702a 724 
776 7808 808 8128 862 8668 883 8928 11 9154 

9628 981 9864 1005 10094 1028 10334 1066 10844 1103 
1139 1155#@ 1159 11634 1167 1171#@ 1175 1179#@ 1183 25988 
2772# 2789 2799# 2815 2826# 2842 28718 2999 3017# 3076 
3579 55958 90 38078 3947 39668 4115 4131# 4189 4196" 
42534 4269 4275 4287# 4296 4305 

TENS2 = 000002 28748 2903 2922 = 294T 30278 3065 3088" 3105 3110# 323) 
3440 3452H 3494 3507# 3553 36168 3644 36494 3677 36824 
38284 3873 38788 3921 3987# 4035 4040" 4090 

T$NS35 = 000005 28768 2898 2924 2935 

TSPCNT= 000000 43288 43298 

TSPTAB= 010074 4329# 4335 

TSPTHV= 000001 43404 

TSPTNU= 000001 4H 43354 4340 

TSSAVL= 177777 4a 

TSSEGL= 177777 4# 2876# 28984 2900 29248 29355# 2935 

TSSEKO= 010000 28764 2898 29248 2955 

T$S1ZE= 000007 4316 4340M 

TSSUBN= 000000 4#@ 2870 2873 2921# 30164 3026 30848 30874 31098 33248 
3506# 35944 36154 36484 3681 37248 38060#  3827# 3877# 39654 
4195#@ 42208 

TSTAGL= 177777 4a 

TSTAGN= 010076 i 152a 170# 6494 6768 702# 7288 754a 7804 8128 


TSTEMP= 000000 1154 1164 1174 1184 1198 1204 1218 122e 1258 124A 


1005#@ 10234 1024 10284 1060# 1061 1066# 10984 1099 11054 
' 1175#@ 811838 2574 25888 26698 2670 26798 


rr ee ee ow 
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TSTEST= 


TSTSTM= 


TSTSTS= 


TSSINI= 


TSS$PRO= 
TSSPTA= 
TSSSEG= 
TSS$SOF = 
TSSSRV= 
TS$SUB= 


000012 


177777 


J00001 
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28158 


2 
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28428 


5 
36498 
40408 


3276 
4196# 


28984 


3251 
36828 
4090 


3579 
422\e 


33428 
3720 


35958 
4232 


ce ee 


SEQ 0155 


33948 
3761 


3790 
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ees 
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XS TRUE = 


030464 


000020 


MACY11 30(1046) 


19-AUG-79 20:26 


G 


Gy 


aaa a cy 


cy) Gy) Cy Cv ©) GC) GC) CV CV CV GC CY 


30164 
30698 
5070 


50848 


3324a 


35948 
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710 


3599 
1543 


3058 


1533 
1918 


1408 
3201 
4296 
4296 


736 


3811 
2901 


19234 


762 


3970 
2925 


782 


4136 
2937 


814 


4200 
5022 


868 


5091 


1203 


5245 


1355 


4224 


266/7* 


2724 
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XOOF9 017200 1924 19298 

Xx80F9 017026 18894 

X90F9 017216 1930 1935a 

SBGNLE= 177777 4a 

SERFLG= 000400 Gm 6554 656 66354 664 1041# 1042 10474 1048 10554 1056 1157#@ #81158 
11654 1166 11735#@ = 861174 11814 1182 12114 12474 1248 12504 1251 1254 12904 
1291 129354 1294 1297 13264 1327 13284 1329 13854 1386 13884 1389 1392 
13934 1394 13954 1396 15524 1553 15584 1559 15604 1561 1590# 1591 16318 
1632 17414 1742 17448 1745 1748 17494 = 1750 17624 81763 17824 17834 1787 
179¢# #8 1795 17964 1797 20294 2050 20614 20624 2065 20664 20674 207 20718 
20724 2075 20764 2077 2091# 20924 2095 20964 20974 2100 21014 21024 2105 
21064 2107 21094 2110 2157# 2158 2159 21634 2164 21654 2168 21768 2178 
2179# 2182 21874 2188 21898 2190 21918 .2194 21964 21974 2200 22218 22228 
2225 22268 2227H 2230 22318 22324 22355 22364 2237 22654 22664 2267 22968 
2297 235094 2310 23164 2317 24228 24238 82424 24338 2435 24368 2437 24538 


32684 3269 33274 33298 33678 3568 34228 = §=—5424 34258 3479# 3480 35354 
5 35 38a 3558# 35598 35604 5561 35624 3563 3572@ 35978 35998 36018 
3602 36044 3605 3608 36094 3610 3766# 37674 37684 3769 3770" 1 37808 


$FSAND= 000310 a) ose teh AaST aaa? 1808. SSS TT 2 MS 8622 SS. OO. 2 


$FSBAD= 000401 4a 654 655 663 1041 1046 1047 1055 1157 1165 1173 1181 1247 
1250 1257 1282 1290 1293 1300 1325 1326 1328 1377 1385 1388 1393 
1395 1410 1422 1552 1557 1558 1560 1590 1631 1741 1744 1749 1762 
1782 1790 1794 1796 2029 2061 2066 2071 2076 2081 2091 2096 2101 
2106 2109 2113 2125 2137 2156 2157 2162 2163 2165 2176 2179 2187 
2189 2191 2196 2220 2221 2226 2231 2236 2241 2265 2270 2290 2295 
2296 2305 2308 2309 2316 2422 2427 2433 2436 2440 2452 2453 2455 
2457 2459 2462 2464 2467 2479 2481 2625 2632 2634 2638 2657 2667 


SFSBLA= 090170 4# 1279 1322 1419 

$FSCAS= 000150 4a 

$FSDEC= 000220 4a 

$F$D0 = 000540 4A 654 1046 1557 

SFSFAL= 000405 4# = 234) 2389 3176 

$F$G00= 000400 4H 651 652 655 656 663 664 1041 1042 1043 1044 104° 1048 
1055 1056 1157 1158 1165 1166 1173 1174 1181 1182 1211 1247 1248 
1250 1251 1254 1255 1280 1290 1291 1293 1294 1297 1298 1325 1526 
1527 1328 1329 1375 1385 1386 1388 1389 1392 1393 1394 1395 1396 
1408 1420 1552 1555 1554 1555 1558 1559 1560 1561 1590 1591 165) 
1652 1741 1742 1744 1745 1748 1749 1750 1762 1763 1782 1783 1787 
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1788 1794 1795 1796 1797 2029 2030 2061 2062 2065 2066 2067 2070 
2071 2072 2075 2076 2077 2079 2091 2092 2095 2096 2097 2100 2101 
2102 2105 2106 2107 2109 2110 2111 2123 2135 2154 2157 2158 2159 
2160 2163 2164 2165 2168 2176 2178 2179 2182 2187 2188 2189 2190 
2191 2194 2196 2197 2200 2218 2221 2222 2225 2226 2227 2230 2231 
2232 2235 2236 2237 2239 2265 2266 2267 2268 2288 2291 2296 2297 
2303 2306 2309 2310 2316 2317 2422 2423 2424 2425 2433 2435 2436 
2437 2438 2450 2453 2454 2455 2456 2457 2458 2459 2460 2461 2462 
2463 2464 2466 2467 2470 2479 2480 2481 2482 2625 2626 2632 2633 
2634 2635 2636 2657 2658 2659 2667 2668 2693 2694 2702 2703 2707 


4099 4100 4108 4136 4150 4154 4171 4198 4200 4211 4224 4226 4228 

SFSIF = 000110 G# 1255 1260 1273 1280 1298 1303 1316 1323 1344 1353 1355 1375 
1408 1413 1420 1431 1440 1442 1788 1792 2079 2088 2111 2120 2123 
2132 2135 2144 2148 2150 2152 2154 2160 2184 2208 2210 2212 2218 
2239 2248 2253 2255 2259 2268 2277 2288 2291 2293 2298 2300 2305 
2306 2311 2315 2318 2320 2425 2438 2447 2450 2486 2496 2498 2500 
2636 2641 2707 2718 2721 2732 2734 2880 2896 2927 2931 2963 2973 
2979 2989 3040 050 3053 3063 3093 3103 3114 3124 3126 3136 3138 
3140 3151 3187 3189 3198 3201 3209 3217 3219 3245 3259 3369 3371 
3379 3427 5429 3481 3483 3491 3540 3542 3550 3564 3574 1 
3653 3641 3664 3666 3674 3699 3701 3709 3740 3742 3750 3772 3782 
3853 3855 3863 3902 3904 3912 3931 3941 4005 4007 4015 4058 4060 
4068 4100 4110 4150 4154 4162 4164 4171 4179 

SFSINC= 000210 4# 1247 1275 1290 1318 1385 1415 1741 1751 3601 3611 3813 3825 
3972 3982 

$F$LO00= 000200 4a 

SFSNAM= 000160 4# 1246 1278 1289 1321 1384 1418 

$FSNO = 000405 4a 652 655 656 663 664 1041 1042 1044 1047 1048 1055 1056 
1157 1158 1165 1166 1173 1174 1181 1182 1255 1259 1280 1298 1302 
1323 1326 1327 1328 1329 1375 1393 1394 1395 1396 1408 1412 1420 
1552 1553 1555 1558 1559 1560 1561 1590 1591 1631 1632 1749 1750 
1762 1763 1782 1787 1788 1794 1795 1796 1797 2029 2030 2061 2065 
2066 2070 2071 2075 2076 2077 2079 2091 2095 2096 2100 2101 2105 
2106 2107 2109 2110 2111 2125 2135 2154 2157 2159 2160 2163 2164 
2165 2168 2176 2178 2179 2182 2187 2188 2189 2190 2191 2194 2196 
2200 2218 2221 2225 2226 2230 2231 2235 2236 2237 2259 2265 2267 
2268 2288 2291 2295 2296 2297 2503 2306 2309 2310 2316 2317 2422 
2424 2425 2435 2435 2436 2437 2438 2450 2455 2454 2455 2456 245? 
2458 2459 2461 2462 2465 2464 2466 2467 2470 2479 2480 2481 2482 
2625 2626 2632 2655 2634 2635 2656 2657 2659 2667 2668 2695 2694 
2702 2703 2721 2758 2759 2880 2927 2965 2979 3093 3114 3126 3138 
3140 3153 3155 3156 3160 3187 3189 3201 3237 3238 3259 3240 324) 
3242 3261 3262 3267 3269 3367 3368 3422 5424 3425 3426 3479 3480 
3555 3537 3538 3539 3558 3560 3561 3562 3563 3564 5609 3610 3766 
5768 3769 3770 3771 3772 3821 5822 3925 3927 3928 3929 3950 3951 
3980 3981 41)94 4096 4097 4098 4099 4100 | 
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$FSOR = 0003520 ft 654 1046 1257 1282 1300 1325 1377 1410 1422 1557 1790 =§=2081 
2113 2125 2137 2156 2162 2220 2241 22/u 2290 2295 2295 2305 2308 
2427 2440 2452 2638 2709 2723 2882 2929 2965 2981 5042 3055 3095 
3116 3128 3140 3189 3203 3247 3371 3373 3429 3431 3483 3485 3542 
3544 3566 3633 3635 3666 3668 3701 3703 3742 3744 3774 3855 3857 
3904 3906 3933 4007 4009 4060 4062 4102 4152 4156 4173 

SFSRTIN= 000300 at 

SFSSEL= 000140 S180" $359 $335 2350 2359 2368 2374 2390 2398 2407 2416 5161 3177 

SFSTHE= 000550 G# 1257 1282 1300 1325 1377 1410 1422 1790 2081 2115 2125 2137 
2156 2162 2220 2241 2270 2299 2295 2305 2308 2427 2440 2452 2638 
2709 2723 2882 2929 2965 2981 3042 3055 3095 3116 3128 3143 3192 
3203 3247 3375 3431 3485 3544 3566 3635 3668 3703 3744 3774 3857 
3906 3935 4009 4062 4102 4152 4156 4173 

SFSTRU= 000404 4H = =2342 2350 2551 2359 2360 2390 2598 2399 2407 2408 3177 3184 
3185 3221 3222 

SFSUNT= 000130 GH = 2471 2485 

SFSWHI= 000120 4a 651 652 1043 1044 1057 1554 1555 1562 2293 3140 3189 
3371 3429 3485 5542 3633 3666 3701 3742 3855 3904 4007 4060 

SFSYES= 000402 Ga 652 656 664 1042 1044 1048 1056 1158 1166 1174 1182 1255 
1260 1273 1280 1298 *303 1316 1523 1327 1329 1344 1353 1355 1375 
1394 1396 1408 1413 1420 1431 1440 1442 1553 1555 1559 1561 1591 
1632 1750 1763 1787 1788 1792 1795 1797 2030 2065 2070 2075 2077 
2079 2088 2095 2100 2105 2107 2110 2111 2120 2125 2132 2135 2144 
2148 2150 2152 2154 2159 2160 2164 2168 2178 2182 2184 2188 2190 
2194 2200 2208 2210 2212 2218 2225 2250 2255 2237 2239 2248 2253 
2255 2259 2267 2268 2277 2288 2291 2293 2297 2298 2300 2303 2306 
2310 2311 2313 2317 2318 2320 2424 2425 2435 2437 2438 2447 2450 
2454 2456 2458 2461 2465 2466 2470 2480 2482 2486 2496 2498 2500 
2626 2633 2635 2636 2641 2659 2668 2694 2703 2707 2718 2721 2732 
2734 2759 2880 2896 2927 2931 2965 2973 2979 2989 3040 3050 3053 
3063 3093 3103 3114 3124 3126 31536 3138 3140 3151 3155 3160 3187 
3189 3198 3201 3209 3217 3219 3238 3240 3242 3245 3259 3262 3269 
3368 3369 3371 3379 3424 3426 3427 3429 3437 3480 348) 3485 3491 


SIFLEV= 177777 4@ 12558 12734 1280 12984 1316# 1323 1353 13554 1375@ 14088 14138 14208 


32194 324658 32598 33698 33798 34278 34378 34818 34918 35408 35508 35648 35748 
36314 36414 36644 36748 36998 3709 3740 37508 3772# 37828 38534 38638 59028 
thi 44h 3941# 40054 40154 4058 4068 4100 4110 4150 41548 4162# 41648 
4171# 41798 

$1SK0 = 900001 1255#@ 1273 12804 1355 1375#@ 1442 1788" 1792 20798 2212 22188 225 22688 
2277 22884 232 24258 2500 2636# 264) 2707# 2734 28804 2896 29278 931 
296354 2973 29798 9 30404 30534 3063 3093# 3103 3114# 83.24 31268 
3156 3138@ 3151 31878 219 3245 3259 33698 3379 34278 3437 3.318 549) 
3540# 3550 35648 3574 36318 3641 36648 3674 3699" 3709 37408 5759 37728 
3782 3853a 3863 3902 3912 393518 5941 4OO0S# 4015 4058# 4068 4100# 4110 
4150# 4164 4171# 4179 


E 13 24 
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CZTSIB.P11 19=AUG-79 20:26 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0160 

$1SK1 = 000001 1298 1316 13234 1353 1408 1413 1420 1440 2111 2152 2154 2210 2272 
2253 = 2291 = 2298)~—2303# = 2318 «= 2438# = 2498 «= 27214 = 2732S 3201H = 3217 154 = 4162 

$1SK2 = 000001 2123 «2150 = 2160# =. 2208 306# = =©2311 «24508 = 2496 

$15K3 = 000001 2135" «2148 

SLOCTA= 177777 Ge 651 653 665 we a | a), a oe )) ee) 
1256 1256 1266 1275 «#127500 «(42% 0 8278Ci«N260i1281—i‘ Se] S:C«iS 
1301 «= 1303)—~S:é«‘<‘2316)~SC*é«<‘TWS*C«‘i8”—:*~=“‘«‘iZTC*d8OGCOd38GKSCO8GS)Sd353)2S(«1355)2S«1376«1:386 
ser 4560 Set 4408 4 TS I aa OA 8S ae 
i442 89% 0 9554 2 Med 9988 4a OS EO AN 2 1s 1? 4 ae 
060 2086«C (‘i208 ia2120si«i«24 aS COS COSS 2S CCOCia SO 
150. -2182.—COSS CO COA aSCCB208 C16 si«it2.sazte ati titi‘izNS 
2258 3255 2256 2259 2269 23277 2289 22902 2294 2298 2300 2301 2306 
2307s 2311.s«2313)—Ss—i« 2314S 2318 )~=— 2320. 2327S: 2329s 3300S 2332s 23360 2337S 2338 
3339 «= 93400s—s«242 20s 8SQtsi‘é‘«SS4CCié8SGs336002'—i236822Ssi«é237S)=CSssi«i2377~2=Si«28782Cti288ti«é 388A 
2385 2386 2387 £2388 2390 2398 2399 2607 2608 2416 2426 2639 2647 
ot eee Cs Gee “tte +t +e of +e es Beoe ve ee ye? eee eet ee ee 
2719 + +492722 = «2732.—Sts«73H—Ssi«BBSi(‘é«BGH—Ssié‘«Z2BsCé2931—s 296K )=Ss« 2973S 2980S 289 Ss“: 
66 Som Seas. = Om HGR COS SS HO a Se OS at > B42 5081 
Sas S6 | Stas | a? oN he - NO HAR ORR On? om HS. CN 
3190 3191 3198 3199 3202 3209 3210 3217 3219 3221 3222 3229 ©3246 
TS? See it) mee it; ee ky, ee SS me 7h ve: See vet eee oe ee tee 8 ee 7 ee 
sas (iSERCCSRO2 MOS. COS iSeOT. CSOT. COSet2) eS? 63A iC‘ AT OSS? 
3674 3700 3702 3709 3741 #3743 #3750 «©3773 «= 3782.)Sssi«i38140—Ss«C3B815 Ss 3B17~—Ss3819 
38323. 3824 4«=s 38540 s38560~—Ss3863.—Ss«3903~—Ss—i‘«‘( 90S~Ss«i 39 ]s—“‘é BS CC89G1—Ss 3973) 397K 3976 
3978 3982 3983 4006 4008 4015 £4059 4061 £4068 4101 4110 4151 4155 
4162 4164 4172 4179 

$LSTCN= 177777 Ge 651 652 654 665 wrt an) eee) ee ee ee 
+.) Mae? Mee | ee been + See ot ee oY ae ty ee te eee), ees), eee te, ee 
1282 1289 1290 1292 1293 1296 1297 1298 1300 1303 1306 1316 ~#=1318 
Sie. 0834 9E98 (058 4a aa: 8S 8S OS. RT? es 5S CSO? 
i?) ee ee Ge Fe ee ey Se) eee tt Gee ot yt) eee St” oe ty Bee tS ere tS 
ae | 844s 5556 9654 85ST lo NSbr = 9868 UT = WR a eS a 
1752 9708 1700 1702. 2070 2061 #2089 «42000 2 «62111 #2118 «2121 «2122 8223 
oooe o° Sete Mets - ogue > Beem) Baek ag 2 otek = OSes 2. a ee ee 
las SC aA C08 CG 12 218 2226 228 ae ee 2258 2883 
5 7 ee li eee > lt ee PO ee |) ee) Ree) ee > ee > ee > ee > ae 7s) ee 3 >, 
otnt Stam § S306 3808 Sth. eee 2518. 6 eC 828 eC 
+1} ee i me St? ee 570 ee 17 ee 7 ee SS ee Se cy ee i a” | eee a ee ay 
[oe +0 + Gee *s e. e? See +05 Me +5 oe +e ee vee oe er Se vt eet eee SS oe he 
suns ART 48SCOKGSCiKDC(“‘CSOO:C«dSSGC(i‘é SCAT 270722708 (C2718 s«27720 
2721 «492723 ~=«2732.~Stéié«8GSté‘i BOOB?) 2B9H.—s«2927-~——s«o2929—Ss«2931 Ss 2963S 2965s 29778 
5979 492981 2989 3040 3042 3050 3053 3055 3063 3093 3095 3103 3114 
hia Mm be ee I a a a ee ee 
vw inl Ue ae ee © 858 © Sek Set. > B68. 6 SBI Re 
EoohCiee igh. Soap . 8258. Stee S47S. (CSS? CO Mao? CUS a? ost Os 
3691 3540 3544 3550 3566 3566 3574 3601 3603 3604 3605 3608 3611 
Base) Sana) Same. Beak Baek Beek me Oe S708 S768 Bee Sa | SE 
3772 #3774 #«+3782 £3813 3815 3816 3817 3820 3823 38°94 3853 3857 3863 
3902 «= 3906.—S's—«i3912~—~—*=<‘ST:SC=<“‘<‘ SZC8GTSC8972~—Ss38974~=—S 8975S 8976 = 8979S 3982 )~—S 3983 
4005 4009 4015 4058 4062 4068 4100 4102 4110 4150 4152 4154 4156 
(ie) oles tN 4S OMS 

$.STIN= 000001 4H 652 653 655 653 as > teat (tesa ee a eS eT one 
ivan OPS BR RDAE aaF 2 0008 1288 282 9288 8S Ie eS ae 
1280 1281 1290 1291 1293 1295 1296 1298 1299 1301 1318 1323 1324 
‘ina koe kak UES SRA (1985 aa OR 1800. 1581 1-2 es 
ane tit 4a8h ADOT A RS SSS 6 sa. the ek = 


——— = ee ——— ae 
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1631 1741 1742 1744 1746 1747 1749 1751 1762 1782 1783 1784 1785 
1786 1788 1789 1794 1796 2029 2061 2062 2063 2064 2066 2067 2068 
2069 2071 2072 2075 2074 2076 2079 2080 2088 2091 2092 2095 2094, 
2096 2097 2098 2099 2101 2102 2103 2104 2106 2109 2111 2112 2179 
2125 2124 2132 2135 2136 2144 2154 2155 2157 2158 2160 2161 - 163 
2165 2166 2167 2176 2177 2179 2180 2181 2184 2187 21389 rae 2192 
2195 2196 2197 2198 2199 2218 2219 2221 2222 2225 2224 2226 2227 
2228 2229 223) 2232 2255 2254 2236 2259 2240 45 2255 2265 2266 
2268 2269 2288 2289 2291 2292 2293 2294 2296 c. 0 2305 2304 2306 
2307 2309 2313 2316 2326 2327 2328 2329 2331 2353 2334 2335 2337 
2338 2339 2340 2350 2359 2374 2375 2376 2377 2379 2381 2382 2385 
2385 2586 2387 2388 2398 2407 2422 2425 2425 2426 2433 2434 2436 
2438 2439 244/ 2450 2451 2455 2455 2457 2459 2460 2462 2464 2465 
2467 2468 2469 2479 24381 2483 2484 2486 2625 2632 2634 2636 2637 


1247 
280 
18 


$LSTST= 177777 Ge 651 652 54 665 666 1043 
289 1290 
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1 
1 
! 
1 
1 
1 
2 
M4 
2 
2 
M4 
2 
2368 2 
2 
é 
M4 
M4 
5 
5 
5 
5 
5 
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6 1 | 
PARAMETER CODING MACY11 30(1046) 19cAUG= 79 20:27 PAGE 134 
CZTSIB.P11_19=AUG-79 20:26 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0162 | 
3982 «= 3983)—Si—i400S)Ssi—i009s—«i«wOSSsiSB 4062S 4068) 100s 102s 110s 1500 182 | 
4154 4156 4162 4164 4171 4173 4179 
$LSTTA= 000001 oe 651 “m6 1065 1698 (205 1251. Yooe. 73 312%) Citi | 
E,W fo eee biG me 8G ee | tS et ee ee ea ) eee) eS | 
vet Bee ot ee ee. oe | Se en + ee ae ee eee eee * et | 
2150 2182 2185 ##2206 2210 2212 2249 42253 2256 2250 2277 862298 862301 | 
381] 23160C'i«i«818 ti‘ S2G:~C«i‘«‘éSSOC2SS20~Ci«‘iSSGCCSSH2 2851) 23880—i2388CiS878ié2'380 
2384 2390 2399 2408 2616 2668 2471 2687 2496 2498 2500 2641 2719 
3789 =—s«373%0i289Gsi«iw29S1i297S)== C2989 )~=Ssi«*S0SO)0—s«CidS063)02s«31080—Ciéi“‘(‘UH2GCOC«#S3S@ 0 CS42—s«3981 
nas Bear S471: SFP Beek Ot ae 6 S28 BF 8 ss Ra? es ee 
337934370 3491S 3550S 357436038) 3605S 3612S 364128674 )2=—S 3709S 3750~—Ss 3782 
3815 3817 7 ae 7 *¢ ee Se eee * *¢ Ge See SS ee ot ee? S| eet, * es hf ee et 
4 
$MCALL= 009000 ry i 
$NESTL= 177777 cH = 6518 —si«OSMO«d10G3H)—O1057# = 1246# = «1267# =—«1255# = 1260~Ssi«*‘12 73M —Ssi«d2 7512788 = «12808 
1289" 1290# 12984 1303 1316# 1318 13218 13238 1364 13538 13558 13758 1384 
13858 14084 14134 16158 14188 16208 1631 14408 1642 15548 1562 1741# 17518 
17884 17928 2079# 2088 2111# 2120 2123# 2132 2135 2144 2168 2150" 2152e 
2154# 2160# 2186 2208 2210# 22128 22188 22398 2248  2253# 2255 2259" 22684 
22778 «=6.2288# ~=—2291H = 2298# = 2300Ss« 2 3038H@ = 2 306M = 311TH) = 23130 2318 =. 23208 «= 23268 = 2342 
2350 2359 2368% 2374f 2390 2398 2607 2616 2625 26388 2647 2650 26718 
24834 2686 24964 24988 2500# 2636# 2641# 2707 2718 27218 2732# 27348 28808 


$NSKO = 000110 6514 665 10434 1057 12464 1278 12808 1355 1375#@ 81442 15544 81562 17418 


1751 17884 = 1792 2079# 2088 2212 22188 2255 2259 22684 2277 22884 23500 
2320 23268 2342 2350 2359 23748 2390 2398 2407 2416 24258 2500 


$NSK1 = 000110 1247# = =1275 12894 1321 13234 1544 1353 13848 1418 14208 14351 1440 21\i\# 
2120 2152 21544 2210 2239H 2248 2255 2291# 2298 235038 2515 2518 24388 
2447 2498 27214 2732 3187# 3198 3219 41548 4162 

$NSK2 = 000110 1255# 1260 1273 12908 1518 13854 1415 21238 2132 2150 21608 2184 2208 
2306 2311 24508 2486 2496 3201# 3209 3217 

$NSK3 = 000150 12984 1303 1316 14084 1413 213558 2144 2148 24718 2683 

SSAVLE= 177777 af 6654 666# 10578 1058 1250 12546# 1293 1297# 1388 1392# 1562# 15638 
ieee 17484 23288 23308 2376 23784 316038 31654 3604 3608  3816# 58208 3975@ 

3 

$SSxK0 = 0501753 6654 666 1057# 1058 12508 1254 1293# 1297 13884 1392 15628 1565 17448 
1748 23284 2330 2376# 2578 31658 3165 36044 53608 38168 5820 397S5#@ 3979 

STAGLE= 177777 alt 652m 6544 665# 10448 1046 1057# 1249 12518 1254 1257# 12608 12618 
1273#@ 361275 = =61276# = 2824 = 12928 = 12948 =91297H = 1300 =6913038@ «69135048 «813516 «61518 e 15198 
1325# 36 1345# =«13466# 135538 1355@ 13778 13878 1389 1392 «146108 1415 14158 14168 
16228 1632@ 16338 14408 1442# 1555 1557 1562 17438 17465 174688 17518 17528 
1790" 1792 2081# 2089# 2090# 2113@ 21218 2122 2125 21338 21354 2137# 21458 
2166# 214684 2150 2152 2156 2162# 2185% 2186 2208 22108 2212 22208 226i\8 
2269H 2250 22538 22568 2257 22598 2270 2277# 22908 22958 22988 235018 23028 
2305H@ 4 2308# 23118 2314# 23158 23188 23208 25378 2342 2550 2551 2359 2560 
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CZ1S1B.P11 19-AUG=-79 20:26 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0163 


23688 2369" 23858 2390 2398 2399 2407 2608 24164 2617# 2627# 24408 26488 
24498 2652 26728 26838 26878 26888 24964 24984 25008 26388 26418 27098 27198 
29738 «=62981# 29898 30428 
31438 9 3151# 931728 = 3177 
3184 3185 31928 31998 32008 3203# 32108 32118 3217# 3219# 3221 «= 3222-—Ss«3.2298 


36054 36054 36084 36118 36128 36358 36418 36684 36748 37038 3709 37448 37508 


STAGNU= 050205 4a 651 6528 653 6548 1043 10444 1045 10464 12464 1248 ot 12508 


1253 12544 1256 1257# 12614 1281 12828 12898 129! 12924 129358 1296 12978 
1299 1300# 135048 1324 13254 1544 13464 1376 1377# 13844 1386 1387# 13888 
1391 13924 1409 14104 1421 14228 81431 14338 1554 1555#@ 1556 1557# 1742 
174358 817448 = 1747 17484 1789 17908 20814 2088 2090# 2112 21135# 2120 
2122H 2124 21254 2132 21548 2136 21378 2144 21468 2155 21568 2161 21628 
2184 21864 2219 22208 2240 22418 2248 22504 2255 22578 2269 22708 2289 
2290M 292 2294 2295# 2500 2502" 2304 235054 2307 25084 2313 235158 2327 


STEMP = 050202 655A 6564 6658 6644 6654 6668 10414 1042 1047 10484 10554 10568 #10578 


10584 1157# 11584 11658 11664 = 1 

12754 12764 12784 1279 1294# 1297 13038 13164 13184 1319 13214 1322 15268 
1327# 13284 13298 1344 1345 13538 13554 13894 1392 13938 1394# 1395 15968 
146134 14154 14164 14184 1419 14318 14328 14404 1442 1552 15534 15588 15598 
15604 15614 15624 15634 1590 15918 16318 16324 17458 17488 1749 1750@ 17518 
17524 17624 17634 17824 17878 17928 17948 17958 17968 17978 20298 20508 2061" 
20654 2066 2070 20718 20754 20764 2077# 20884 2089 20918 2095 2096 21004 
2101 2105 2106 2107# 2109 2110 2120 21214 21328 21338 21446 21458 21488 
2150 2152 2157 21598 21638 2164 21658 21684 21764 21788 21798 21828 21848 
21858 2187# 21884 21898 21908 21918 2194 21964 22008 2208 22108 2212# 22218 
2225 2226 2230 22318 22358 22368 22378 22484 22498 22535 22558 2256# 22598 
2265# 2267 2277 2296# 2297# 2298 2300 23018 2309 2310# 23118 25135 23148 
2316# 2317 23184 23208 235350 23378 2 


3384 862339 =623408 2342 23508 235518 23598 


PARAMETER CODING 


CZ1S1B.P11 


$1SKO 


$TSK1 


$1SK2 


$1SK3 


STSK4 
$TSK5 
$TSK6 


SSARGC 
SSBYTE= 


SSCASE 


$$DST 


S$ELOC= 


SSERFL= 
$$FLAG= 


050202 


050201 


Tees i 3 


177777 
050155 
050143 
050145 


000000 
000402 


000404 
000003 
000402 


000000 
000001 


MACY11 30(1046) 
:26 
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534 


1 
2 
5 
? 
050" 
2 
5 
8 
1 


———— 
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$$FROM= 000000 G#@ 12118 289468 29018 293578 29398 29718 


$$LOC = 035754 4a 6534 654 10454 1046 12564 1257 
13764 8=1377 14094 1410 14218 1422 15564 

2115 21248 2125 21368 2137 21554 2156 

2269" 2270 22894 2290 22928 2293 22948 

2377# 2378 24268 2427 24398 2440 

27084 2722H 23 2881# 2882 29288 


$$LOCN= 000000 4 

SSREG = 177777 Qa 

$SRETU= 000000 4a 

$$RTNI= 000000 GH 

$$RTN2= 000000 4a 

$$SRC = 000027 4H 17838 20624 2067# 2072# 2092H 20978 
2227 = =—2232H = =—2467H 

$$TGSv= 050135 GH 2337 2338 2339 2340 23684 2369 
31724 83173 3174 3175 3229" 3230 

$$1GS1= 000001 GH = =2342H 2345 23514 2352 23608 2361 
31774 3178 31854 3186 32228 8 §=63.225 

$$1GS2= 000000 4a 

$$10 = 000000 “ 12114 1212 28948 2895 2901# 2902 
2987# 2988 3022" 3023 3048" 3049 50618 
3113 31224 8 3123 31348 31535 3149# 3150 
3572# 3573 3597# 8 3599# 3600 37808 
3940 39684 3969 3970# 3971 4108# 4109 
4211# 4212 4224 4225 4226# 4227 42288 

$$$1TAG= 050000 Qi 

, = 054552 6m 1384 142a 492m 5014 5104 526 

746 772 804 8064 858 879 8814 

977 979# 1001 1024 1026# 1045 1046 
1257 1267 1269 1281 1282 1299 1300 
1377 1402 1404 1409 1410 1421 1422 
2112 2113 2124 2125 2136 2137 2155 
2241 2269 2270 2289 2290 2292 2295 
2329 2330 2377 2378 2426 2427 2439 
2614 2616 2637 2638 2670 2708 2709 
2881 2882 2928 2929 2948 2958 2960 
3041 3042 5054 3055 3094 3095 3115 
3165 3190 3191 5202 3203 3246 3247 
3429 3450 345) 3482 3485 3484 3485 


Min — ONE RS YIN OO OD 
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PARAMETER CODING 
CZTS1B.P11 


000004 
000002 
000200 
000040 
000100 
000010 
000001 
000020 


MACY11 30(1046) 


19-AUG-79 20:26 


OAR QCaa 


K 15 
19-AUG-79 20:27 PAGE 138 
CROSS REFERENCE TABLE -- USER SYMBOLS 


3635 
3773 
4006 
4152 
4340 


5666 
3786 
4008 
4156 


3667 
3854 
4009 
4172 


3668 
3855 
4032 
4173 


3701 
3857 
4060 
4207 


3702 
3905 
4061 
4209 


me we we ee 


SEQ 0166 





4 
PARAMETER CODING MACY11 3061046) 19-AUG-79 20:27 PAGE 140 


CZ1S1B.P11 19-AUG-79 20:26 CROSS REFERENCE TABLE -=- MACRO NAMES SEQ 0167 

ALLOCA ra] 

BCOMPL Pa] e 1233 2629 

BEGIN 28 = =61245 1288 1383 

BERROR oa 4a 

BGNAU Qa 4# 2825 

BGNAUT 2a 4# 2689 

BGNCLN Qa 4# = =2771 

BGNDU Pa] 4# 2798 

BGNHRD Qn 4# 4252 

BGNHW a] Ga 151 

BGNIN] oa 4# 2597 

BGNMOD on 4a 185 2591 2850 4241 

BGNMSG Qn | 648 675 701 727 753 779 811 865 891 914 937 961 985 
1008 1032 1083 1107 1119 

BGNPRO on 4# 2582 

BGNPTA on 4H 4328 

BGNRPT Pa 4a 

BGNSEG Pa] 4# 2875 2923 

BGNSET Qn 4# 4327 

BGNSF T Qn 4# 6286 

BGNSRV 2a 4# 11584 1162 1170 1178 

BGNSUB 2a 4# 2872 2920 3025 3086 3108 3340 3392 3450 3505 3614 3647 3680 3723 
3826 3876 3985 4038 

BGNSW ow 4a 169 

BGNTST Qa 4 2869 3015 3083 3323 3593 3805 3964 4129 4194 4219 

BNCOMP on 4# 2622 2645 

BNERRO on 4a 

BREAK PL] 4# §=©1189 1270 1313 1405 

BRESET 2a 4# 2877 

CALL 2a 1210 2893 2900 2936 2938 2970 2986 3021 3047 3060 3067 3100 3111 3121 


3135 3148 3242 3326 3328 3571 3596 3598 3779 3808 3810 3938 8 8=©5967 3969 4107 


CASE on =. 2341 2349 2358 2389 2397 2406 3176 3183 3220 

CKLOOP oa 4a 

CLOCK ow 4a 

CLOSE ra me 

CLRVEC 2a 4@ 2703 2774 

COMMEN va 4a 

DEALLO oa 

DECLAR oa 

DECR Pat 

DECRU oa 

DEF AUL 2a 

DELAY 2a 4a 1261 1304 1396 2608 2952 3029 4201 

DESCRI 2a 4a 132 

DEVTYP 2a 4a 139 

DISPAT on 4a 112 

DISPLA 2a 4a 

DOCLN 2a 4a 1255 1428 2638 

DODU 2a 4a 1226 

DORPT 2a 4a 

ELSE F) 1259 1302 1343 1430 2087 2119 2131 2143 2183 2247 2254 2299 2312 2446 
2485 2717 3197 3208 

END 2a 1277 1320 1417 

ENDAU 2a 48 2841 

ENDAUT 2a 4# 2756 


PARAMETER CODING MACY11 30(1046) 19-AUG-79 20:27 PAGE 141 


CZ1S1B.P11 19-AUG-79 20:26 CROSS REFERENCE TABLE -=- MACRO NAMES SEQ 0168 

ENDCLN on 4# 2788 

ENDCOM on 4a 

ENDDEC on 

ENDDO 2a 664 1056 1561 

ENDDU on 4# 2814 

ENDHRD on 4@ 4274 

ENDHW Qn 4a 159 

ENDIF 2 = 1272 1315 1352 1354 1412 1439 1441 1791 2147 2149 2151 207 2209 2211 
2252 2258 2276 2297 2310 2317 2519 2495 2497 2499 2640 2731 2733 2895 2930 
2972 2988 3049 3062 3102 3123 3135 3150 3216 3218 3258 3378 3436 3490 3549 
3573 3640 3675 3708 3749 3781 3862 3911 3940 4014 4067 4109 4161 4163 4178 

ENDINC 2H = 1274 1317 1414 1750 3610 3822 3981 

ENDINI 2a 44 2678 

ENDLOO 2a 

ENDMOD on 4a 181 2573 2845 4235 4519 

ENDASG Qn 4a 671 697 723 749 775 807 861 882 910 933 956 980 1004 
1027 1065 1102 1115 1138 

ENDPRO Qn 4# 2587 

ENDPTA Qn 4#@ 4337 

ENDRPT on 4a 

ENDRIN on 

ENDSEG 2a 4#@ 2897 2932 

ENDSEL 24 8 §=62:367 2415 3228 

ENDSET of 4a 4339 

ENDSFT 2a 4# §=©4302 

ENDSRV 2a 4a 1158 1166 1174 1182 

ENDSUB 2a 44 2902 2940 3064 3104 3230 3381 3439 3493 3552 3643 3676 3719 3760 
3872 3920 4034 4089 

ENDSW : on 4a 178 

ENDTST 2a 4# 2998 3075 3275 3578 3789 3946 4114 4188 4213 4231 

EQUALS 2a 4a 192 | 

ERRDF oa 4a 1197 1329 2882 2965 2981 3042 3055 3095 3116 3128 3143 3178 3192 
3203 3211 3223 3247 

ERRHRD 2a 44 = 2427 3373 3431 3485 3544 3566 3635 3668 3703 3744 3774 3857 3906 
3933 4009 4062 4102 4156 4173 

ERROR 2a 4a 

ERRSF on 44 2603 

ERRSOF 2a 4a 

ERRTBL 2a 4a 

ESCAPE oa 4a 

EXIF of 

EXIFB 2a 

EXIT on 4a 667 692 718 744 770 802 856 877 905 928 951 975 999 
ees 1059 1097 1133 2668 2781 2807 2834 2946 3270 3784 4030 4085 4183 4268 
4 

FCQUAL on 4a 

GETBYT ra | 4a 

GE TPR] 2a 4a 

GE TWOR 2a 4a 

GMANIA cn 4a 

GMANID 2a 4a 

GMANIL 2a 4a 

GPHARD 2a 4a 1229 2643 

GPRMA of 4a 4256 

GPRMD oa 4ft 4261 

GPRMAL 8 4# #86290 


ee eee -_— ——— 
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PARAMETER CODING MACY11 30(1046) 19-AUG-79 20:27 PAGE 142 

CZ1S1B.P11 19-AUG-79 20:26 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0169 

HEADER on Ge 18 

lf e# = §=61254 1279 1297 1322 1374 1407 1419 1787 2078 2110 2122 2134 2153 2159 
2217 2238 2267 2287 2290 2302 2305 2424 2437 2449 2635 2720 2879 2926 2962 
2978 3092 3113 3125 3137 3186 3200 3563 3771 3930 4099 

1FB 2# = §=62706 3039 3052 3244 3368 3426 5/80 3539 3650 3663 5698 5739 3852 3901 
4004 4057 4149 4153 4170 

1* COND ra | 

1f .ERR on 

1F .NO. on 

INCR cH = =§=61246 1289 1584 1740 5600 3812 3971 

INCRU on 

INLINE on 

INLOOP on ie 

IOSETU on 4a 

1OSTAR on Ga 

KT11 on 4a 

LASTAD on 4# 4313 

LEAVE on = =61257 1300 1410 

LET Jf 654 662 


LOCAL 2a 

LOOP oa 

MANUAL a 4a 

MEMORY ea 4a 

MSBYTE Pa] OF 194 25 26 27 

MSCHEC 2a 4a 6684 6934 7194 745 771\# 8034 857# 8784 9064 929" 9528 9768 10058 
4 te 10604 1098 1134 2669 27824 2808 2835 2947# 3271# 37854 40318 4086# 41848 42698 
4 

MSCNTO en 4a 4257 42628 42914 


MSCOUN Pa oe] 657# 6784 6844 7044 7108 7308 7364 7564 762a 782" 7898 7964" 8148 


MSDATA 2a 4a 194 28 30 32 34 36 38 40 42 se 46 48 50 
52 54 56 584 60 62 65 68 70 72 74 76 78 80 82 
84 86 88 90 92 94 96 98 100 102 135¢ 1404 

MSDECR #8 af 1604 1794 182a 6728 6988 (248 7508 7768 808s 862a 883s olla 9348 


MSDEFA oa 4#@ 4257# 4262 42918 

MSENDE 2a 4a 1604 1794 1824 6728 698" 7248 750" 7768 808" 8628 883" 91le 9348 
9574# 9814 1005#@ 1028 10664 +%$|Qd103# #=+%1116# 11398 #11598 1167 #4#1175@ £11838 2574@ 26798 27378 
27898 28158 2842 28464 28988 29038 29338 29418 29998 30654 30768 %$(%$31058 %$%32318 £=%%32768 £33828 
34408 34948 35538 3579 36444 ‘36778 +%|$%$37208 37618 %$%>37908 3873#@ 392718 39478 4035@ 40908 411S@ 
41898 42148 4232 6236 42754 430358 £43208 

MSERR] 2a 4#@ 861198 1330 246288 26048 28838 2966 29828 3043@ 3050# (%3096# $%3117@ $%$(‘%3':29@ 31448 
3179#@ 3193@ 32046@ 3212 3224# $%324688 $%33748 %$%4432@ 34868 35458 3567#@ 36368 36698 370468 374Se 


——— 
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CZTSIB.P11 19-AUG-79 20:26 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0170 
MSESCA on oa 

MSESCS on Ld 

MSEXCP on 4# 4257# 42628 


MSEXIT on & 6684 69354 7198 7458 


Tria 
10234 10608 10984 11344 26694 2670 2/820 2783 28084 28354 2947 294 3271 5272 3785a 
3786 GO31# 4032 40864 4087 41848 4185 42698 42968 
MSEXSE ra | Ga 668A 6934 7198 7458 77\8 8034 8574 8784 9064 9298 9528 9764 10008 
Hs te 10604 1098 11344 26694 27828 2808 28358 2947# 32718 37854 40314 4086 41848 42698 
MSEXTJ ra] 1 6684 669 6934 694 7198 720 7458 746 7718 772 8034 804 8578 
858 8788 879 9064 907 9298 930 952m 953 9768 9 10004 1001 10258 


MSGEN on 4s 194 28A 304 328 348 364 384 40M 42H 44n 46a 484 504 


MS$GENB ra 4h 
MSGETS on 4a 1604 1798 182a 6728 6984 7248 7504 7768 8084 8624 8834 9114 9348 


MSGETT on 4a 668A 6934 7198 7454 7718 803# 857# 8788 9064 9298 952a 9768 10004 
aite 1060# 10984 11344 26694 27824 2808 28358 2947# 32714 3785 40318 40868 41848 42698 
42964 

M$GNGB on ‘i 94 194 288 304 328 348 564 384 4O# 42m 44a 46# 488 


MSGNIN on qa 194 20 21 22 23 24 25a 268 evn 28a 29 30” 31 
528 33 348 35 364 57 388 39 4O# 41 42m 43 Gm 45 46a 
a? 48a 49 504 ) 52m 53 54a 55 564 57 58a 5 608 61 
62m 63 64 65a 66 678 688 69 70# 71 72H 7 74a 75 76# 
77 78a 79 804 81 824 5 848 85 864 87 88s 9 908 91 
928 93 944 95 968 97 988 99 100# 101 102a 10 1138 1154 1164 

1174 1184 1198 1208 1214 122a 1234 1248 1334 134 8 1404 14] 142 1S2a 
1704 057# 658" 659 6608 661 6684 6694 6738 6788 6798 680 6814 8 6848 
6854 6864 6874 6884 689 690# 691 6934 694" 6998 7048 7054 706 707# 8 
7108 7114 712e 7138 7144 716# 717 7198 7204 7258 7308 7318 7338 
734 736# 737m 738M 7398 7408 741 (42m 743 7458 746m 7518 7568 TS7a 8 


— _— —— LL ee 





PARAMETER CODING 


CZTSIB.P11 


MSGNLS 
MSGNSU 


MSGNTA 


MSGNTE 
MSHAPT 
MSHNAP 
MSINCR 


9778 


MACY11 30(1046) 
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874 


8758 
9064 
9354 


>] 
os 
_ sj 
SE 


~“SWM A mS Fane — OO 
— ANN MK MY NAOWONr OW" 


MOPROMOPO RS SS SS SO 


876 


8784 
9124 


| 

wow 

COwoOweod 
ee 
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et me 
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© 
oOw—O PM 
Nu SN 
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436 





PARAMETER CODING 


CZ1S1B.P11 


MSPRIN 


MSPUSH 


MSPUT 


M$PUT1 
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M4 
24418 


nis —-Owo 


2 
24898 


PARAMETER CODING 


CZTS1B.P11 


MSRAD 1 
MSRBRO 
MSRNRO 
MSSETS 


MSSTAR 
MSSVC 


MSTLAB 


MSTSTL 


26958 
a 
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27108 
42918 


2711 


2645 


2712 


27248 


2725 


2888s 


52558 


SEQ 0175 


pa 
| 
: 
| 
a 
ied 


PARAMETER CODING 
CZTSIB.P11 


MSWORD 


MSXFER 
OPEN 
POINTE 
POP 
PRINTB 


PRINTF 
PRINTS 
PRINTX 


PUSH 

READBU 
READEF 
REPEAT 
RETURN 
RFLAGS 
ROUTIN 
SAVR14 


MACY11 30(1046) 
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5262 


7198 
266098 


41748 


729 
2113 
2488 
1435 


761 
1016 


7458 
27828 


795 
1202 


8578 
29478 
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CZ1S1B.P11 19-AUG-79 20:26 CROSS REFERENCE TABLE -~ MACRO NAMES SEQ 0175 
$ADDON ot 651 652 654 665 1043 1044 1046 1057 1246 1247 1249 1250 1254 1255 | 

1257 1261 1280 1282 1289 1290 1292 1293 1297 1298 1300 1304 1325 1325 1346 

1375 1377 1384 1385 1387 1388 1392 1408 1410 1420 1422 1433 1554 1555 1557 

1562 1741 1745 1744 1748 1788 1790 2079 2081 2090 2111 2113 2122 2123 2125 

21354 2135 2137 2146 2154 2156 2160 2'62 2186 2218 2220 2239 2241 2250 2257 

2268 2270 2288 2290 2291 2295 2302 2303 2505 2506 2308 2315 2326 2328 25335 

2337 2374 2376 2381 2385 2425 2427 2438 2440 2449 2450 2452 2471 2472 2488 

2636 2658 2707 2709 2720 2721 2725 2880 2882 2927 2929 2963 2965 2979 2981 

3040 3042 3053 3055 3093 3095 3114 3116 3126 3128 3138 143 3161 3163 3168 

3172 3187 3192 320 3201 3203 3211 3245 3247 3369 3375 3427 3431 3481 3485 

3540 3544 3564 3566 3601 3603 3604 3608 3631 3655 5664 3668 3699 3705 3740 

3744 3772 3774 3813 3815 3816 3820 3853 3857 3902 3906 3931 3935 3972 3974 

3975 3979 4005 4909 4058 4062 4100 4102 4150 4152 4154 4156 4171 4173 
SAND on = 2291 3369 3427 3481 3540 3631 3664 3699 3740 3853 3902 4005 4058 
SBRANC Qn 653 665 1045 1057 1248 1253 1256 1258 1275 1281 1291 1296 1299 1301 

1318 1324 1344 1376 1386 1391 1409 1411 1415 1421 143] 1556 1562 1742 1747 

1751 1789 2080 2088 2112 2120 2124 2132 2136 2144 2155 2161 2184 2219 2240 

2248 2255 2269 2289 2292 2294 2300 2304 2307 2313 2327 2329 2350 2359 2575 

2377 2398 2407 2426 2439 2447 2451 2484 2486 2637 2708 2718 2722 2881 2928 


$SBRCOD ew = §=1252 1295 1390 1746 3138 3187 3606 3818 3977 
$CALL ow = =61211 2894 2901 2937 2939 2971 2987 3022 3048 3061 3068 3101 3112 3122 


SCHECK ra 652 1044 1255 1280 1298 1323 1375 


SCKOP1 oa 655 1041 1047 1157 1165 1173 1181 1 


$CKOP2 2a 665 1055 1250 1293 1388 1560 1744 1782 1794 1796 2061 2066 2071 2091 


$CKRO 28 8617853 2062 2067 2072 2092 2097 2102 2165 2179 2191 2197 2222 2227 2252 


2467 
$CMND 2" 652-1044 —S:*1255 280 1298 1323 1375 1408 14620 1555 1788 2079 2111 = 2123 
21385 «2156S 2160S 2218)~—S 2239. 2268 = 2288 = 2291S 2293) 2303) 2306) 25 8B 2450) 2686 
5707 ~—«s«£2721~Ss« BBO ~—s«i2927~—Ss« 2963s 2979-3040) 8053S 30938) 3114) = 3126 = 3138 = 3140) 3187 = 3189 
3201 «3245S s«8369.~—Ssi33712~ 8427) 842984818483) 3540 = 3542 35646 = 3631 3633) 8664 3866 
5699 5701 5740 5742 3772, 3853)—si3855)—Ss3902.S's«3904~=Ss 3931S 005) Ss 4007S 4058 = 4000 = 4100 
415 4154 4 
SCOMPA 9 652—«*d10HGStié«‘NR|?Si«*2SS~=S—i‘(QBO)|OC2902=S's«*1298)~=Ss«1323)s«i1375)— «1385S 1408)=— 1420015551741 
2123-2135. 2154 160 2218 2239 2268 2288 2291 2308 2306 2425 
2707 = 2721 3126 = 3138 
3369-3427 37723818 
3972 4005 | 
2901 2937 3112-3122 
3327-3329 3970 «= 4108 
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CZTSIB.P11 19-AUG-79 20:26 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0176 
4136 4198 4200 4211 4224 4226 4228 

$00 OF 652 1044 1555 

SELSE ra] 

SERRMS on 

SEXIFA Qn 

SEXIFO ra] 

SEXIF2 ra] 

SEXIFS "Aj 

SGENBR on 653 665 1045 1057 1248 1255 1256 1258 1275 1281 1291 1296 1299 1301 
1518 1524 1344 1376 1386 1391 1409 1411 1415 1421 143] 1556 1562 1742 1747 
1751 1789 2080 2088 2112 2120 2124 2132 2136 2144 2155 2161 2184 2219 2240 
2248 2255 2269 2289 2292 2294 2300 2304 2307 2313 2327 2329 2350 2359 2375 
2377 2398 2407 2426 2439 2447 2451 2484 2486 2637 2708 2718 2722 2881 2928 
2964 2980 3041 3054 3094 3115 3127 3139 5141 3162 3164 3184 3188 3190 3198 
3202 3209 3221 3246 3370 3372 3428 3430 3482 3484 3541 5545 3565 3602 3607 
3611 3652 3654 3665 3667 3700 3702 3741 3743 3773 3814 3819 3823 3854 3856 
39035 3905 3932 3973 3978 3982 4006 4008 4059 4061 4101 4151 4155 4i72 

SGENTA Qn 651 666 1043 1058 1249 1251 1260 1273 1276 1278 1292 1294 1305 1316 
1319 1321 1345 1353 1355 1387 1389 1413 1416 1418 1432 1440 1442 1554 1563 
1743 1745 1752 1792 2089 2121 2133 2145 2148 2150 2152 2185 2208 2210 2212 
2249 2255 2256 2259 2277 2298 2501 2311 2514 2318 2320 2330 2332 25356 2542 
2351 2360 2568 2378 2380 2384 2390 2399 2408 2416 2448 247) 2487 2496 2498 
2500 2641 2719 2732 2734 2896 2931 2973 2989 3050 3065 3103 3124 3136 3142 
3151 3165 3167 3171 3177 5185 3191 3199 3210 3217 3219 322 5229 3259 3379 
3437 3491 3550 3574 3605 3605 3612 3641 3674 3709 3750 5782 3815 3817 3824 
3865 3912 5941 3974 3976 3983 4015 4068 4110 4162 4164 4179 

SIF ew = §=1255 1280 1298 1323 1375 1408 1420 1788 2079 2111 2123 2135 2154 2160 
2218 2239 2268 2288 2291 2303 2306 2425 2438 2450 2656 2707 272) 2880 2927 
2963 2979 3040 5053 3093 3114 3126 3138 3187 3201 3245 3369 5427 3481 3540 
3564 3631 3664 3699 3740 3772 3853 3902 3931 4005 4058 4| 4150 4154 4171 

$1F COD on 652 1044 1255 1280 1298 1323 1375 1408 1420 1555 1788 2079 2111 2125 
2135 2154 2160 2218 2239 2268 2288 229) 2293 2303 2306 2328 2376 2425 2438 
2450 2483 2636 2707 2721 2880 2927 2965 2979 3040 3053 093 3114 3126 3140 
3165 3189 3201 3245 3369 3371 3427 3429 3481 3483 3540 5542 3564 3651 3655 
5664 3666 3699 3701 3740 3742 3772 3855 3855 3902 3904 3951 4005 4007 4058 


$1F CON ra 
SIFOPR . on 653 1045 1256 1281 1299 1324 1376 1409 1421 1556 1789 2080 2112 2124 


$LET Pa 655 663 1041 1055 1157 1165 1173 1181 1326 1328 1393 1395 1552 
1558 1560 1590 1631 1762 1782 1794 1796 2029 2061 2066 2071 2076 2091 
2096 2101 2106 2109 2163 2165 2176 2179 2187 2189 2191 2196 222i 2226 
2231 2236 2265 2296 2316 2422 2435 2436 2453 2455 2457 2459 2462 2464 
2467 2479 2481 2625 2632 2634 2657 2667 2695 2702 2758 3153 3156 3237 3259 
3241 3261 3267 3367 5422 3425 3479 3535 3538 3558 3560 3562 3609 3766 3768 
3770 3821 3925 3927 39 3980 4094 4096 4098 
Doce “0 1247 1290 1385 1741 3601 3815 3972 
OPABS a 
SOPADD mo, il At 1055 1250 1295 1588 1560 1744 1796 2457 2462 2479 2652 2758 3604 
6 
SOP AND ee = =2062 2067 2072 2092 2097 2102 2165 2179 2191 2197 e222 222? 2232 246? 


SOPCD1 2H =—2106 2109 2176 2189 2455 2464 5422 35535 


PARAMETER CODING 


CZ1S1B.P11 


SOPCD2 


SOPCOM 
SOPDEF 


SOPEQU 
SOPNAN 
SOPNEG 
SOPNOR 
SOPNOT 
SOPOR 


SOPROT 
SOPRO 


SOPR 1 
SOPR2 


SOP SHF 
$OPSUB 


on 
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CZ1S1B.P11 


SOPSWB 


$STRUC 
$SSUBON 


STHEN 


STILA 
$TILO 
SUNTL2 
SUNTL3 
SWHILE 
SSDEFA 
SSENDS 
SSERRO 
$S$GEN 


$$GETS 


$$GETT 


SSLPCN 
$$POP 


2109 
3187 
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PARAMETER CODING 


CZ1S1B.P11 


SSPUSH 


$SSELE 
SSSETS 


SSSETT 
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. ABS. 054552 


ERRORS DETECTED: 
CZ1S1B,CZ1SIB/CRF/SOL/EQ:ONEF ILE=NLISTF.P11,SVC.SML,SPMAC.SML,LISTF.P11,CZ1S1B.P11 


RUN-TIME : 


3229 3230 
3750 3782 
4110 4162 
651 652 
1261 1280 
1377 1384 
1741 1743 
2135 2137 
2270 2288 
2376 2385 
2709 2720 
3055 3093 
3201 3203 
3601 360 
3815 3816 
4058 4062 
2337 2338 
651 652 
1261 1280 
1377 1384 
1741 1743 
2135 2137 
2270 2288 
2352 2361 
2471 2472 
2965 2979 
3161 3163 
3373 3427 
3664 3668 
3906 3931 
4154 4156 
2343 2352 
000 
0 


71 77 7 SECONDS 


RUN-TIME RATIO: 


CORE USED: 


28K 


170/156=1.0 
(56 PAGES) 
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CROSS REFERENCE TABLE -- MACRO NAMES | SEQ 0179 


3379 3437 3491 3550 3574 3605 3608 3611 3612 3641 5674 
th 5825 3824 3865 3912 5941 5976 3979 5982 3985 4015 
665 1043 1044 1046 1057 1246 1247 1249 1250 1254 1255 
1289 1290 1292 1293 1297 1298 1300 1304 1323 1325 1346 
1387 1388 1392 1408 1410 1420 1422 1433 1554 1555 1557 
1748 1788 1790 2079 2081 2090 2111 2113 2122 2125 2125 
2154 2156 2160 2162 2186 2218 2220 2259 2241 2250 2257 
2291 2295 2302 2303 2305 2506 2308 2315 2326 2528 2557 
2427 2438 2440 2449 2450 2452 2471 2472 2488 2636 2638 
2725 2880 2882 2927 2929 2963 2965 2979 2981 3040 3042 
3114 3116 3126 3128 3138 3143 316! 3163 3172 3187 3192 
3245 3247 3369 3373 3427 3431 3481 3485 3540 3544 3564 
3608 3631 3635 3664 3668 3699 3703 3740 3744 3772 3774 
3853 3857 3902 3906 3931 3933 3972 3974 3975 3979 400% 


